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Como usar 
este libro 


Programar con el BASIC de Timex/Sinclair sirve para entre- 
tener y educar a toda la familia. Los juegos y programas de 
utilidad de este libro están preparados para “correr” en una 
computadora Timex/Sinclair con 16K de memoria de acceso 
al azar (RAM). Todos los programas han sido comprobados 
previamente y una vez que hayan sido introducidos en la 
computadora le proporcionarán horas de entretenimiento. 
Tanto si reta a la computadora a una partida de backgam- 
mon, discute sus problemas con la psiquiatra Eliza o simple- 
mente confecciona su agenda de direcciones, en todos los 
casos encontrará al Timex/Sinclair como un inteligente aliado, 
oponente o asistente. 

Incluso aunque tenga experiencia con las computadoras 
Timex/Sinclair debe dedicar unos minutos a leer las siguientes 
líneas. Las computadoras Timex/Sinclair son máquinas pode- 
rosas y a la vez económicas, para usarlas debe estar familiari- 
zado con el BASIC que es probablemente el lenguaje de 
computadoras más universalmente extendido y a la vez tiene 
que conocer las peculiaridades del teclado T/S, que está orga- 
nizado de modo que el teclear sea una labor lo más eficiente 
y cómoda posible. 

Una breve lectura de estas líneas junto con el Manual del 
Usuario del Timex que viene con su computadora, le permiti- 
rán conectar la computadora e introducir el pres programa 
en un tiempo aproximado de una hora. 


vu 
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Conexión del sistema 


El Manual del Usuario de Timex contiene instrucciones claras 
y directas para conectar su computadora. Nos ha parecido 
que unos ajustes adicionales pueden hacer que el sistema sea 
más fácil de usar. 


1. El cable para conectar su computadora a la TV. La 
mayor parte de las computadoras T/S producen una 
imagen de TV mediante caracteres negros sobre 
fondo blanco, por este motivo la pantalla aparece 
bastante brillante. Con el cable de 4 pies que viene 
con la computadora para conectarla con el televisor, 
se tiene que trabajar muy cerca de la pantalla y des- 
pués de unas pocas horas de estar en esta posición se 
aprecia cansancio de ojos y un cierto dolor de ca- 
beza. Recomendamos sustituir dicho cable por otro 
un poco más largo (6 u 8 pies). La mayor parte de 
los almacenes de componentes electrónicos tienen 
este tipo de cables y cuestan unos pocos cientos de 
pesetas. Con un cable un poco más largo podrá po- 
ner el televisor en el otro extremo de la mesa donde 
será perfectamente visible y producirá menos cansan- 
cio de ojos. 


2. El mando de los canales debajo de la computadora. 
Algunas veces después de programar o de practicar 
un juego con la computadora, hemos desplazado la 
misma unos centímetros para permitir que otros to- 
masen el control. En algunas ocasiones al hacer esto 
se ha perdido por completo la imagen de la televi- 
sión. Después de investigar descubrimos la causa de 
este trastorno: el mando de selección de los canales 
que está debajo de la computadora debería estar in- 
crustrado en la misma; sin embargo, en algunas de 
las computadoras con las que hemos trabajado no 
está suficientemente incrustrado. Como consecuencia 
al desplazar la computadora sobre la mesa puede ro- 
zarse el selector de canales pasando de uno a otro y 
se produce una pérdida momentánea de la imagen. 
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No tiene importancia, basta volver a seleccionar el 
canal adecuado para recuperar la imagen que no se 
ha perdido puesto que estaba almacenada en memo- 
ria. Si este problema se manifiesta insistentemente 
puede bloquear el selector de canales con un trozo 
de papel adherente. 

También hemos observado que los consejos del fa- 
bricante sobre cuál de los dos canales (2 ó 3) debe 
usarse, no son siempre ciertos. De las tres máquinas 
que hemos utilizado, dos funcionaban mejor en el ca- 
nal 3 y la tercera lo hacía en el canal 2. Puesto que 
las pruebas se hicieron en Nueva York donde el ca- 
nal 2 está ocupado por la emisora CBS-TV, se ex- 
plica que funcionara mejor el canal 3, pero esto no 
sucede siempre. No tenemos una explicación convin- 
cente de este hecho, pero preferimos prevenirle. 


Conexión del magnetófono. Al cargar y guardar pro- 
gramas, se ha observado que tal y como se indica en 
el Manual del Usuario de Timex es mejor tener el vo- 
lumen del magnetófono cerca de su punto más alto. 
De forma similar, se obtienen los mejores resultados 
al cargar y guardar programas, si el tono se coloca en 
el punto más agudo. Más aún, si su magnetófono 
tiene las dos posibilidades “mono” y “stereo”, utilice 
la primera de ellas. En el caso de que únicamente 
sea “stereo” gire el balance completamente hacia la 
derecha O hacia la izquierda y déjelo en esa posición 
tanto para cargar como para guardar. 

El Manual del Usuario Timex contiene una suge- 
rencia interesante sobre la forma de almacenar pro- 
gramas para que sean fáciles de encontrar: véase la 
página 14 del manual donde se explica cómo insertar 
una voz que anuncie el comienzo de cada programa 
que haya grabado en la cinta. 

Tres cosas más: Primero, es preferible pagar más 
por una cinta de buena calidad. Segundo, es aconse- 
jable hacer una copia de seguridad de'cada pro- 
grama, preferiblemente en un cassette distinto. Ter- 
cero, debe grabar sus programas sólo en una cara del 
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cassette, puesto que sino las señales de una cara pue- 
den interferir las señales de la otra. 


Probablemente el mayor inconveniente de la compu- 
tadora Timex/Sinclair es que el teclado es muy pe- 
queño. Para obtener la mayor comodidad en la mani- 
pulación del teclado manténgale iluminado y como 
ya se ha mencionado a cierta distancia del televisor. 
Con unos pocos minutos de práctica comprobará que 
el teclado es de hecho muy manejable. 


Teclado 


Si no tiene experiencia con el teclado T/S, lea esta sec- 
ción cuidadosamente y con el mismo cerca para compro- 
bar lo que lee. 


1. 


Cuando desee pulsar el número 1, asegúrese de que 
efectivamente presiona la tecla correspondiente al 
número 1 y no la correspondiente a la letra L. La te- 
cla del 1 esta situada en la fila superior del teclado y 
en su extremo izquierdo. 


No confunda el número 0 con la letra O. En los lis- 
tados de programas de este libro así como en la ima- 
gen de su TV, apreciará que el número cero se im- 
prime con una barra que lo cruza: 0. 


La letra 1 y el número 1 pueden parecer también si- 
milares en los listados de los programas, pero debe 
asegurarse de que los distingue. La letra I se repre- 
senta en este libro así |, mientras que el número 1 se 
representa mediante 1. 


En algunos programas se hace uso del subrayado 
(—) para indicar que debe dejar un espacio (presio- 
nando para ello la tecla SPACE). No intente pulsar 
la tecla del subrayado puesto que no la encontrará en 
el teclado de la computadora T/S. Sólo se utiliza den- 
tro de comillas en los listados de programas, puesto 
que tan solo dentro de comillas puede ser crucial in- 
sertar el apropiado número de espacios. 
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Todas las palabras impresas en letras negrillas en los 
listados de los programas son palabras reservadas. 
Cada una de estas palabras es accesible mediante una 
única tecla. Si se intenta teclear letra a letra una de 
estas palabras, la computadora no la aceptará o el 
programa no se ejecutará correctamente. Por tanto 
siempre que encuentre una palabra en negrilla asegú- 
rese de que accede mediante una única tecla. 


Los siguientes símbolos matemáticos son también ac- 
cesibles mediante una sola pulsación 
< > que significa “distinto” y se encuentra en la 
tecla T. 


> = que significa “mayor o igual” y se encuentra 
en la tecla Y. 
< = que significa “menor o igual” y se encuentra 


en la tecla R. 


Recuerde que cada tecla del T/S puede tener hasta 5 
significados diferentes dependiendo del modo en el 
que se esté operando. El modo se indica mediante el 
cursor del siguiente modo: 

Modo palabra clave (“keyword”). Cuando se 
está en este modo, se accede a la palabra im- 
presa en blanco sobre la tecla. 

Modo literal. Cuando se está en este modo 
se accede al carácter en negro oscuro que 
esté sobre la tecla. 

Modo función. En este modo se accede a la 
palabra impresa en blanco debajo de la tecla. 

Modo gráfico. Si se pulsa una tecla en este 
modo, el carácter en negro oscuro de la tecla 
aparece en “negativo”. (Esto significa que el 
carácter aparecerá en blanco en la pantalla, 
sobre un pequeño cuadrado negro.) Si se 
mantiene pulsada la tecla SHIFT mientras 
que se está en el modo gráfico, algunas de las 
teclas le darán acceso a unos pequeños sím- 
bolos gráficos que se muestran en la esquina 
inferior derecha de cada tecla. 
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Almacenamiento de programas en cinta 


Después de haber tecleado un programa, comprobado que 
funciona y decidido conservarlo, puede guardarlo grabándole 
en cinta magnética, de la misma forma que se graba una 
pieza musical. Todo lo que tiene que hacer es pulsar SAVE 
seguida del nombre elegido para su programa entre comillas. 
Por ejemplo, si decide llamar a su programa CAZA DEL 
SUBMARINO, deberá escribir en su computadora: 


SAVE CAZA DEL SUBMARINO 


Ahora debe colocar su magnetófono en posición de grabar. 
Después pulse la tecla ENTER y el programa (o más exacta- 
mente una copia del programa, puesto que el mismo conti- 
nuará en la memoria principal de la computadora) será gra- 
bado en la cinta. Sabrá cuando se ha concluido la grabación 
por medio del código 0/0 que aparecerá en la esquina inferior 
izquierda de la pantalla. En ese momento puede desconectar 
el magnetófono. 


Carga de un programa 


Para cargar un programa desde la cinta magnética a la com- 
putadora, pulse NEW seguido de ENTER. A continuación 
puede escribir: 


LOAD CAZA DEL SUBMARINO 


que busca y carga el programa llamado CAZA DEL SUB- 
MARINO, o bien: 


LOAD ” ” 


que busca y carga el primer programa completo que encuen- 
tre en la cinta. 


Recordatorios importantes 


1. Anótese el nombre elegido para el programa que 
esté grabando, incluyendo los espacios entre las pala- 
bras que puedan existir. Si guarda un programa con 
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el nombre CAZA DEL SUBMARINO y después in- 
tenta cargarlo llamándole mediante CAZADELSUB- 
MARINO, la computadora no le encontrará. 


Tanto guardando como cargando es preferible que el 
magnetófono esté en posición de “mono” (en lugar 
de “stereo”), de esta forma funciona mejor. Si su 
magnetófono es exclusivamente “stereo”, debe situar 
el control del balance totalmente a la derecha o a la 
izquierda. Además el volumen de grabación debe es- 
tar bastante alto, tres cuartas partes del total, el tono 
debe estar en su punto más agudo. 


Primera 
parte 


JUEGOS 


Backgammon/Chaquete 


Este programa permite a la computadora retarle a jugar al 
Backgammon. El programa insiste en que los movimientos 
deben ser legales rechazando cualquier intento de engaño. 


¿=-TS1000 MOVES 


Pe 0 Po pa 
e e 


ym 0, 


s A 
HEROTHAH 


<¿-—YOUR MQUES 


El tablero que aparece en pantalla está limitado por las 
posibilidades gráficas de la computadora. Por ejemplo, lo que 
normalmente son puntos triangulares, aquí se representan 
mediante rectángulos. Las fichas individuales no aparecen, en 
su lugar se muestra el número de fichas en cada lugar con un 
dígito entre WD y 9, o si hubiera más piezas se utilizan las le- 
tras entre A y Z para representar los números entre 10 y 15 
del siguiente modo: 


A = 10; B = 11;C = 12;D = 13; E = 14; F = 15. 


Esta es la notación hexadecimal clásica y se acostumbrará 
a ella rápidamente. De todas formas, sólo ocasionalmente se 
tendrán más de 9 fichas en un lugar. 
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Las fichas de la computadora aparecen como caracteres 
“en negativo” (caracteres blancos sobre fondo negro) y se 
mueven desde el punto Y hacia el B. Las fichas rescatadas 
por la computadora van a parar a A. Las fichas de la compu- 
tadora que son capturadas retornan a Z. El oponente mueve 
sus video-fichas desde B hacia Y, rescatando sus fichas, hacia 
Z y las fichas que le capturan retornan a A. 

El programa utiliza su propio dado y los movimientos se 
registran a la derecha del tablero. Normalmente aparecen dos 
números representando los dos lanzamientos del dado. Si se 
lanza un “doble” aparecen cuatro números, junto con un 


mensaje que le recuerda que el lanzamiento ha sido un “do- 
ble”. 


TUUIINXY MOUES 
£13 $ 
(23) S 
£3) 
41 E 

DOUBLE 


Si en algún momento no puede mover (por ejemplo, si 
tiene una ficha en la barrera que no puede usarse) entonces 
pulse simplemente ENTER cuando la computadora solicite su 
movimiento. La computadora comprobará que Vd. no puede 
mover (en caso de error o engaño) y realizará su movimiento 
O le dirá que mueva legalmente si es posible. 


Your 
MQUES 
222 3 
(22 «4 
(3) 
4? 


a] 


— 


3 MUROTIA 


YOU CAN MAKE A LEGAL MOVE 
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Si en algún momento desea obtener el programa, pulse 
BREAK si es el turno de la computadora o STOP (shift-A) 
en caso de que sea su turno. El programa detecta automática- 
mente cuando ha ganado o perdido el juego. Para introducir 
su movimiento, precisa introducir primero el lanzamiento del 
dado elegido así como el lugar desde el cual se va a mover, 
esto es, una letra y un número. Letra y número pueden ser 
introducidas en cualquier orden, puesto que la computadora 
los clasificará. Por ejemplo, si ha obtenido un tres con el 
dado y desea mover una de sus piezas desde el punto B, 
puede introducir “B3” o “3B”. Si el movimiento es legal ob- 
servará cómo se mueven las fichas en el tablero. En otro caso 
tendrá que reintroducir su movimiento. 


Programa 1: Backgammon 
19 REM 
20 REM RUNS IN 6K 
30 REM 
50 GOSUB 9000 
60 REM 
999 REM 
1000  PRINT AT 0,23;"YOUR_ _ _"" 
1005 LETB$="1" 
1009 REM 
1010  GOSUB 2000 
1030 DIM MS(2) 
1040 INPUT M$ 


1042 RAND 
1045 IF M$(1)="_STOP_” THEN STOP 
1050 IFM$="_ _” THEN GOTO 1200 


f Las notas entre comillas indican el número de espacios que 
se deben dejar. 
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1055 IF.M$(1)>="1" AND 
M$(1)<="6" AND M$(2)>="A" AND M$(2) 
<="Y" THEN LET M$=M$(2) +M8(1) 

1060 IF M$(1)<"A” OR M$(1)> "Y" OR M$(2)<"1" 
OR M3(2)> "6" THEN GOTO 1040 

1070 FOR G=1 TO D 

1080 IF D$(G)=M$(2) THEN GOTO 1110 

1099 NEXT G 

1100 GOTO 1040 

1110 LET FROM=CODE M$-37 

1120 LET TO=FROM+VAL M$(2) 

1125 IF FROM<>1 AND A$(2,1)< >A$(1,1) THEN 
GOTO 1040 

1130 IF A$(2,FROM)<"1" OR A$(2,FROM)>"F" THEN 
GOTO 1040 

1135 IF TO<26 THEN IF A$(2,T0)="RN'" THEN GOTO 
3000 | 

1140 IF TO <26 THEN IF A$(2,T0)>="B" AND 
A$(2,TO)< ="1'" THEN GOTO 1040 

1150 IFTO<26 THEN GOTO 4900 

1155 FOR H=1 TO 19 

1160 IF A$(2,H)>="1" AND A$(2,H)< ="F" THEN 
GOTO 1040 

1165 NEXT H 

1189 GOTO 4000 

1198 REM 

1199 REM 

1200 LET FLAG=0 


1205 
1210 


1220 
1230 
1240 


1250 


1260 
1265 
1267 
1270 
1280 
1300 


1310 
1320 


1330 
1499 
1500 
1505 
1509 
1510 
1520 
1525 
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FOR H=1 TO 25 
IF A$(2,H)<"1" OR A$(2,H)>"F" THEN GOTO 
1270 

FOR G=1 TO D 

IF D$(G)="_" THEN GOTO 1260 

IF H+VAL D$(G)<26 THEN IF A$(2,H+VAL 
DS(G))< "A" OR AS(2,H+VAL D$(G))> "1H" 
THEN GOTO 1300 

IF H+VAL D$(G)>=26 AND NOT FLAG THEN 
GOTO 1300 

NEXT G 

IF AS(2,1)< >A$(1,1) THEN GOTO 1500 

IF H<=19 THEN LET FLAG=1 

NEXT H 

GOTO 1500 

PRINT AT 14,0; "YOU_CAN_MAKE_A_ 
LEGAL_ MOVE" 
INPUT M$ 
PRINT AT 14.0;” 


GOTO 1045 

REM 
PRINT AT 0,23; "TS1000"" 
LET B5$='"E" 

REM 

GOSUB 2000 

LET FLAG=0 

LET BEAROFF=0 
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1530 
1540 
1545 


1550 


1560 
1570 
1580 
1590 
1600 


1610 


1620 
1630 
1640 
1650 
1660 
1699 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 


FOR F=26 TO 2 STEP -1 
LET FROM=F 

IF FROM<=7 AND FLAG=0 AND NOT 
BEAROFF THEN GOTO 1700 

IF AS(2,FROM)< "El" OR A$(2,FROM)> "Td" 
THEN GOTO 1650 

FOR G=1TOD 

IF DS(G)="_” THEN GOTO 1620 

LET TO=FROM-—VAL D$(G) 

IF TO<2 AND FLAG=0 THEN GOTO 4000 

IF TO>1 THEN IF A$(2,T0)="1" THEN GOTO 
3000 

IF AS(2,TO)<"1' OR A$(2,T0)>"F" THEN GOTO 
4900 

NEXT G 

IF A$(2,26)< >A$(1,26) THEN GOTO 1000 

IF FLAG=0 THEN LET FLAG=1 

NEXT F 

GOTO 1000 

REM 

FOR H=7 TO 2 STEP -1 

IF AS(2,H)=A$(1,H) THEN GOTO 1780 

LET FROM=H 

FOR G=1 TO D 

IF DS(G)="_” THEN GOTO 1770 

LET TO=FROM-—VAL D$(G) 

IF TO<2 THEN GOTO 4000 

NEXT G 


1780 
1785 
1787 
1790 
1999 
2000 
2005 
2010 
2020 
2030 
2040 
2050 


2070 
2079 
2080 
2090 


2100 
2110 
3000 
3010 
3020 


3030 
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NEXT H 
LET F=7 

LET BEAROFF=1 

GOTO 1540 

REM 

DIM D$(4) 

PRINT AT 8,23:'_2_____ dl 

LET D$(1)=STRS (INT (RND+*6)+1) 

LET D$(2)=STRS$ (INT (RND+6) +1) 

IF D$(1)=D$(2) THEN LET D$(3 TO )=D$( TO 2) 
LET D=2+(2 AND D$(1)=D$(2)) 

PRINT AT 3,27;D$(1);TAB 27;D$(2);TAB 
27:D$(3);TAB 27;D$(4) 

IF D=2 THEN RETURN 

REM 

FOR F=1 TO 20 

PRINT AT 8,22; "BOW" /AT 8,22; "_ 
DOUBLE _” 

NEXT F 

RETURN 

REM 

LET A$(2,TO)=B$ | 

LET A$(2,FROM)=(A$(1,FROM) AND 
A$(2,FROM)=B$)+(CHR$ (CODE A$(2,FROM)-—1) 
AND A$(2,FROM)>B$) 

IF B$="1" THEN LET A$(2,26)=("Ml” AND 
A$(2,26)=A$(1,26)) +(CHR$ (CODE A$(2,26)+1) 
AND A$(2,26)> ='M>) 
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3040 


3050 
3999 
4000 
4010 
4020 


4940 


4945 


4050 


4899 
4900 


4910 


5000 
5010 
5020 
5030 


5040 


IF.85="M” THEN LET A$(2,1)=("1" AND 
A$(2,1) =A$(1,1)) +(CHR$(CODE A$(2,1)+1) AND 
A$(2,1)>="1") 

GOTO 5000 

REM ESAINc 

IF 8$="1'" THEN LET P$=CHR$(CODE PS$+1) 
IFBS="K" THEN LET Z5=CHR$(CODE Z$+1) 
LET A$(2,FROM)=(AS$(1,FROM) AND 
A$(2,FROM)=B5$)+(CHR$ (CODE A$(2,FROM)—1) 
AND A$(2,FROM)>B9) | 
IFBS="'1"” AND P$5>"0” THEN PRINT AT 
3,18;P$ 

IFB8$="M” AND Z5> "1" THEN PRINT AT 
7,18,Z$ 

GOTO 5000 

REM 

IFTO>1 AND TO<26 THEN LET A$(2,TO)=(B$ 
AND A$(2,TO)=A$(1,TO))+(CHR$ (CODE 
A$(2,TO)+1) AND A$(2,TO)> =B8) 

LET A$(2,FROM)=(A$(1,FROM) AND 
A$(2,FROM)=B9S)+(CHR$ (CODE A$(2,FROM)-1) 
AND A$(2,FROM)>B$9) 

REM 

LET D$(G)="_" 

PRINT AT 24+G,27;D$(G) 

PRINT AT CODE YS$(FROM), CODE 
XS5(FROM);A$(2,FROM) 

IFTO>1 AND TO<26 THEN PRINT AT CODE 
Y$(TO),CODE X$(TO);A$(2,TO) 


5050 


5060 


5070 


5080 
6000 
6010 
6020 


6030 
6035 


6040 
6500 
6510 
6520 
6530 
6535 


6540 
8999 
9000 
9001 


9002 
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PRINT AT CODE Y$(1), CODE X$(1);A$(2, 1); 
AT CODE Y$(26), CODE X$(26); A$(2,26) 

IF P$="F" OR Z25='"Í” THEN GOTO (6000 
AND P$="F")+(6500 AND Z5="18'”) 

IFD$="_ _ _ _” THEN GOTO (1000 AND B$= 
"MY" +(1500 AND B$="'1") 

GOTO (1030 AND B$="1')+(1540 AND BS$="Ñill””) 
REM 

FOR F=1 TO 50 

PRINT AT 16,10: MONTE) AT 16,10; YOU_ 
WIN ” 

NEXT F 

IF RND<.3 THEN PRINT AT 18,8; "YOU_ 
WERE_LUCKY"” 

STOP 

REM 

FOR F=1 TO 50 

PRINT AT 16,11; NIN AT 16,11; 1_WIN ” 
NEXT F 

IF RND<.3 THEN PRINT AT 18,8; "TS1000 _ 
RULES, OK?” 

STOP 

REM 

CLS 

PRINT AT 54,10; "MIO M0 MENO M0 M0 1 E 

| 1 AIN [BACKGAMMON| HA gN= 
100; MUI O O O O O O O O O A 

PRINT AT 19,15; “BY”; AT 12, 10; "DILWYN_ 
JONES” 
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9005 


9006 


9008 


9010 


9020 


9030 


9040 


9050 


9060 


9070 


9080 


9090 


9100 
9110 


9115 
9120 


9130 


FOR F=1 TO 70 

NEXT F 

CLS 

PRNT PAPA 
pe e Y 

PRINT "MinoPaRS — — — TUVWxXY _MZN 
nu 

PRINT "DEM MsA_.- _sMEmME 
AD __ l- 

PRINT "MEMES... 2 
M_0_ (1 (Y 

PRINT "MEME. REA 
Ed MN O NN YY 

o 
_BAR_Í 

PRINT MESAS. AEREO 
a D0_ 0 _ 

PRINT MMMM E_ Ml 

Ej EJ Eu DT Ml Y 

PRINT "DEM. HERE B> 


0 DO O Y 

PRINT “MuikJH_- _GFEDCB_MAM_M> 
A AAA 
Pm 

DIM A$(2,26) 

LET A$(1)=" - RRE EnEn:sn 

Bel Esa Ed fed fed [ef ML 


LET A$(2)="_2ME MESES Ms E ss 
E E E:3J E: 2 
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9140 LETYS-"HR EEN E e E E E E 
Ma [Bs [B| | Blas | B| [B| aL 

9150 LET X$=">?:52"+CHR$11+""MADA 0") 
MORADA CHAS 11+"2$:?>" 


9160  PRINT AT 1,23; "MOVES":TAB 23;"--—--- 1 
TAB 23;"(1)":TAB 23;"(2)",TAB 23;"(3)",TAB 
23;"(4)" 


9170 LET P$="9" 

9180 LET Z23="WY 

9200 RETURN 

9900 SAVE "BACKGAMMOIN 
991 RUN 


Notas al programa 


El programa ha sido escrito para ejecutarse en el modo lento 
(SLOW), sin traducirlo al lenguaje máquina. La mayor parte 
de los movimientos se realizan en uno o dos segundos, en los 
casos más difíciles puede llegarse a los cinco segundos. Para 
que el programa se ejecute tan rápidamente ha sido preciso 
añadir toda clase de señaladores y otras facilidades. Esto am- 
plía considerablemente la longitud del programa. Una gran 
parte de la memoria está ocupada por las rutinas que dibujan 
en la pantalla, las sentencias de captura de errores y las sen- 
tencias REM. Si se simplificara, los usuarios con sistemas de 
4K podrían probablemente usar el programa, cuyo núcleo 
ocupa alrededor de 3K. 

El programa está generosamente salpicado de sentencias 
REM, por lo que sólo se precisa una explicación breve. 

A$ es la matriz principal. A$(1) contiene la situación del 
tablero sin piezas. A$(2) contiene la situación de las casillas 
del tablero comprendidas entre la A y la Z. Apréciese lo 
ajustado que le viene el alfabeto al Backgammon. Y$ con- 
tiene los caracteres cuyo CODE corresponde a la coordenada 
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Y de la casilla considerada y se usa en las rutinas de impre- 
sión. X$ es similar y contiene la coordenada X. P$ y Z$ con- 
tienen el número de piezas rescatadas por el oponente y la 
computadora respectivamente. 

M$ es la cadena que contiene el movimiento del opo- 
nente. D$ es la cadena que contiene el lanzamiento del dado. 
FROM es la variable que se refiere al punto desde el cual se 
va a mover y TO (que se compone de las letras T y O no de 
la palabra reservada TO que se alcanza mediante shift-4) se 
refiere obviamente a la casilla a la cual se va a mover. Estas 
son las variables más importantes. 

La parte del programa que comienza en la línea 1000 
acepta el movimiento del oponente y decide si el movimiento 
es legal. A partir de la línea 1200 comienza un bloque del 
programa que escudriña el tablero al pulsar el oponente EN- 
TER después de haber introducido su movimiento para com- 
probar si efectivamente puede realizarse algún movimiento. 
La línea 1500 es el principio de un bloque que determina el 
movimiento del computador. El bloque que empieza en la lí- 
nea 1700 comprueba cuando alguna ficha de la computadora 
ha sido rescatada si las reglas del juego lo permiten (la com- 
putadora no tiene fichas en la barrera y todas las fichas de la 
computadora están en juego o en las casillas entre la G y 
la B). 

En la línea 2000 comienza una subrutina que genera el 
lanzamiento del dado. Dicho lanzamiento genera un carácter 
entre “1” y “6”. Normalmente hay sólo dos, pero si el lanza- 
miento fue un doble (ambos dados con la misma puntuación), 
D$ recibe cuatro lanzamientos. D es la varible que dice 
cuántos números hay en Df. Las líneas 2080, 2090 y 2100 im- 
primen intermitentemente la palabra DOUBLE en negativo y 
positivo alternativamente en la pantalla, para llamar la aten- 
ción del oponente. La rutina de la línea 3000 toma las me- 
didas apropiadas si se captura una ficha. B$ cumple dos fun- 
ciones, por un lado informa a la computadora su movimiento 
y por otro informa qué carácter rellenará un punto si el movi- 
miento se ha realizado a una casilla vacía. 

El siguiente bloque maneja el rescate. Las comproba- 
ciones apropiadas de si está permitido o no el rescate se han 
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realizado con anterioridad. El bloque que empieza en la línea 
4900 da a las variables FROM y TO valores apropiados. La 
línea 5000 marca el comienzo de una rutina que coloca el ta- 
blero y lo actualiza, imprimiendo además los lanzamientos del 
dado. 

Entre las líneas 6000 y 6540 se encuentran las rutinas de la 
“victoria”. Aquí es donde el programa termina si decide que 
uno de los jugadores ha ganado. La subrutina de la línea 9000 
inicializa el programa, la pantalla, etc. Las líneas 9900 y 9910 
posibilitan la ejecución automática. Una vez que se ha te- 
cleado el programa guárdese pulsando RUN 9900. El pro- 
grama se ejecutará entonces automáticamente cuando se car- 
gue desde la cinta. 


Quartermass 


El objeto de este programa es rodear a su enemigo, quien a 
su vez intentará rodearle a Vd. Pulse “W” para mover arriba, 
“X” para mover abajo, “A” para mover a la derecha y “D” 
para mover a la izquierda. Su trazo es el discontinuo y el de 
la computadora es el negro. 


0 
Perrersaros. 
RARA AA IRSARARA 
0008 GQ 


SS 


A 
B 


SE 
ISI E 
$ E) 
A 208 
y a 
2 
E 
S Za 
: ÚS 
y E 
y E 
E 
$ 
5 
x 
y 
] 03 
NE $ 
Ñ P 
x 
N Y 
4 A 
Ñ E 
+ er: 


5% 


ASS AAA IICA 
DODDDUCÓGO 77. OOOGiDO 


dá] 
0) 
Dres y e 
Por, 
00000 


SEO l z 


AZ 


Programa 2: Quartermass 
25 SLOW 
30 PRINT AT 0,4; "QUATERMASS.¡AT 1,4" MA 
Pra AT 3,4: "THE_OBJECT_OF_ 


16 


35 


40) 


45 
50 
55 
60 
65 
70 
75 


80 
85 
90 
95 
100 
105 
110 
115 
120 
125 


130 
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THE_GAME _IS_TO_SURROUND_YOUR_ 
ENEMY _WHO_IN_TURN_IS_ALSO_TRYING_ 
TO_SURROUND_YOU.” 

PRINT AT 7,0;"PRESS:”,'"W""_TO_MOVE _ 
UP", "mex TO_ MOVE_DOWN"' 41111 _TO_ 
MOVE _RIGHT”,'D""_TO_MOVE_LEFT" 
PRINT AT 13,0; "PLAYERS_COLOR_HBBES”” 
AT 15,0;"ENEMYS COLOR_ MM 

PRINT AT 21,0;"PRESS_ENTER_TO_BEGIN.” 
INPUT QS 

CLS 

RAND 

LET A$="0010-1033-330010-1033" 

FOR |=0 TO 31 

PRINT AT 0.1: "MAT 20.1: "M AT | AND | 
<20,31;" WIN 

NEXT | | 

LET D=255*PEEK 16397+PEEK 16396 

LET X=D+405 

LET Z=D+254 

LET ZD=-1 

LET XD=1 

POKE X,8 

POKE Z,128 

IF INKEYS="" THEN GOTO 120 

LET D= (33 AND INKEY$="X")-(33 AND 
INKEY$="W" + (1 AND INKEY$=""D")-(1 AND 
INKEYS="A”) 

IF D<>0 THEN LET XD=D 
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135 LETX=X+XD 

140 IF PEEK X<>0 THEN GOTO 230 

145 POKE X.8 

150 IF PEEK (Z+ZD)+PEEK (Z+2*ZD)+PEEK 
(Z+3*ZD)=0 AND RND<0.9 THEN GOTO 215 

155 LET D=3x*INT (RND+4)+1 

160 FOR |=3 TO 1 STEP -1 

165 FOR J=D TO D+9 STEP 3 

170 LETZD=VAL AS(J TO J+2) 

175 FOR K=1 TO | 

180 IF PEEK (Z+Kx*ZD)<>(0 THEN GOTO 195 

185 NEXT k 

199 GOTO 215 

195 NEXT J 

200 NEXT | 

205 PRINT AT 21.0;"YOU_WIN"” 

210 GOTO 235 

215 LETZ=Z+ZD 

220 POKE 7,128 

225 GOTO 125 

230 PRINT AT 21,0:"TS1000_WIN” 

235 INPUT Q$ 

249 IF. Q$="" THEN GOTO 55 

245 STOP 


Ejemplo de ejecución 


QUATERMASS 
PprrrrrrrrBa 
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Nota del traductor 


La traducción al castellano del texto que aparece al ejecutar 
el programa es la siguiente: 


EL OBJETO DEL JUEGO ES CERCAR 
AL ENEMIGO, QUIEN A SU VEZ INTENTARA 
CERCARLE A USTED. 


PULSE 

“W” PARA MOVER HACIA ARRIBA 

“X” PARA MOVER HACIA ABAJO 

“A” PARA MOVER HACIA LA DERECHA 
“D" PARA MOVER HACIA LA IZQUIERDA 


COLOR DEL JUGADOR HE 88 


COLOR DEL ENEMIGO MN 


PULSE ENTER PARA EMPEZAR 


YOR ONES AND ESA NES LS O GUSSA 


ESE IN Pas 


Ú NN | 


$ y 
0 ARAN GAYS NDLS 
AUYA OS y 


731000 WIN 


Damas 


Este programa construye un juego de damas sorprendente- 
mente bueno. Tendrá que concentrarse para derrotar a la 
computadora. 


La cadena de la línea 4000 imprime el tablero, la línea 
4010 lee un extraño conjunto de caracteres de cuyos códigos 
consigue información sobre la posición de cada ficha en la ca- 
dena A$. Estos códigos se introducen en un vector en las lí- 
neas comprendidas entre la 4030 y la 4050, de este modo la 
computadora conoce en todo momento dónde están sus 
piezas. La línea 4060 contiene información que utiliza la com- 
putadora junto con el contenido de la línea 1040 y líneas simi- 
lares para buscar los cuadros a los que se puede desplazar 
diagonalmente. 


Las líneas comprendidas entre 1000 y 2990 contienen el al- 
goritmo que permite a la computadora tomar decisiones. En- 
tre las líneas 1010 y 1170 se mira cada ficha para comprobar 
si puede “comer”. Si es posible la captura la realiza. Esta 
parte del algoritmo es razonablemente lenta al principio del 
juego cuando la computadora tiene un montón de fichas en el 
tablero, pero hacia el final del juego la computadora mueve 
casi instantáneamente. Las capturas múltiples se controlan 
también desde esta rutina (de forma muy sencilla como se 
verá) aunque se requerirá un análisis detallado para enten- 
derlo. La línea 1120 comprueba si alguna pieza se ha conver- 
tido en dama, en cuyo caso, manda el control a la línea 2990 
donde se realiza la coronación. 


20 


Damas / 21 


Las líneas comprendidas entre la 2000 y la 2130 son para 
un movimiento que no implique captura. La computadora in- 
vestiga primero si puede mover una ficha donde no esté en 
peligro de captura y si no encuentra ninguno busca un movi- 
miento legal aunque coloque una de sus fichas en peligro. Si 
no encuentra ningún movimiento legal, mediante la línea 2140 
imprime el mensaje YOU WIN (Vd. gana). 

Las líneas desde la 3000 a la 3230 aceptan el movimiento 
del oponente. El movimiento se introduce en dos cadenas, 
G$ y H$ cada una de ellas contiene una letra entre la A y la 
H y un número del 1 al 8. La primera cadena representa la 
casilla desde la cual se mueve y la segunda la de destino. 
Después las cadenas aparecen en pantalla para que com- 
pruebe si el movimiento es el que Vd. quería realizar, pulse 
“N” si ha habido error o cualquier otra tecla si es correcto. 

Si captura una pieza, se reimprimirá el tablero y la com- 
putadora le preguntará si desea capturar de nuevo con la 
misma ficha. Si puede y desea pulse “Y”. 


Programa 3: Damas 
1d GOTO 4000 

100 PRINT AT 6,11; 

110 FOR A=1 TO 91 STEP 10 

120 PRINT TAB 11¡AS(A TO A+9) 

130 NEXT A 

1409 RETURN 
1000 GOSUB 100 
1010 LETO=0 
1020 FOR B=1 TO 12 
1922 LET C=B(B) 
1025 IF AS(C)<>"X" AND AS$(C)< >"5$' THEN GOTO 

1170 

1030 FOR X=1 TO 4 
1040  LET N=CODE B$(X) -50 
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1050 IF NOT ((X<3 AND A$(C)="X") OR A$(C)= 
$: THEN GOTO 1150 

1060 IF NOT (AS(C+N)="0" OR AS(C+N)="2”) 
THEN GOTO 1150 

1070 IF NOT (AS(C+2*N)="_" THEN GOTO 1159 

1080 LET As AS(C) 

1099 LET A$(C)= 

1100 LET AS(C+N)=" 

1105 LET B(B)=C+2x*N 

1110  LETC=C+2x*N 

1120 IF C>80 THEN GOTO 2999 

1125 GOSUB 100 

1130 LETQ=1 

1149 GOTO 1030 

1150 NEXT X 

1160 IF Q=1 THEN GOTO 3010 

1170 NEXT B 

2000 FORA=1TO2 

2010 FOR B=1TO 12 

2015 LETC=B(B) 

2017 IF AS(C)<>"X" AND A$(C)< > 
"$ THEN GOTO 2129 

2020 FOR X=1TO 4 

2030  LET N=CODE B8(X)-50 

2040 IF NOT ((X<3 AND A$(C)="X") OR A$(C)=""8") 
THEN GOTO 2120 

2050 IF NOT (AS(C+N)="_”) THEN GOTO 2110 

2060 IF A=1 AND ((AS(C+2x*N)="0" OR 
A$(C+2*N)="2") OR ((AS(C+N+20-ABS 
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N)="0" OR A$(C+N+20-—ABS N)="2£") AND 
AS(C+N—20+ABS N)="_”)) THEN GOTO 
2110 

2070 LET A$(C+N)=A$(C) 

2080 LET A$(C)="_" 

2085 LET B(B)=C+N 

2090 IF C+N>80 THEN LET A$(C+N)="$" 

2100 GOTO 3000 

2110 NEXT X 

2120 NEXT B 

2130 NEXT A 

2140 PRINT AT 17,12;" ROUND “:z 

2999 LET A$(C)="S" 

3000 GOSUB 100 

3010 PRINT AT 17,8; "FROM_?_" 

3020 INPUT G$ 

3030 PRINT AT 17,13;G$;"_TO_?_" 

3040 INPUT H$ 

3050 PRINT AT 17,19;H$;"_2" 

3060 INPUT Z$ 

3080 PRINT AT 17,8;” 


1%. === —= — — — — — — — — — 


” 


3090 IF Z$="N" THEN GOTO 3000 

3100  LET G=10* (CODE G$(1)-37)+C0ODE G$(2)-27 
3110 LET H=10x*(CODE H$(1)-37)+CODE H$(2)-27 
3120  LET A$(H)=A$(G) 

3130 IF H<20 THEN LET AS(H)="2" 

3140 LET A$(G)="_" 
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3150 


3160 
3170 
3180 
3190 
3200 
3210 


3220 
3230 
4000 


4010 
4020 
4030 
4040 
4050 
4060 
4070 


4080 
4090 
4100 


4110 
4120 


IF ABS (H-G)< >22 AND ABS (H-G)< > 18 
THEN GOTO 1000 

LET AS(H+G)/2)="_" 

GOSUB 100 

PRINT AT 17,6; "CAN_YOU_ JUMP _ AGAIN?" 
LET Z$=INKEYS 

IF Z$="" THEN GOTO 3190 

PRINT AT 17,6;” 


ny. — — — — — — — — — — — — — 


IF Z$="Y" THEN GOTO 3010 

GOTO 1010 

LET A$="48 123456788 AM xxx xA8x 
MWxEMxM Mec xMxBxBxco_M_M_ 
M_Mo.W_W_M_MA _rromMoMoMoONA 
FGEMoOMoMoMoc.oMo Mo MOM Es 
123456788" 

LET B$="$<?),-0/B759" 

DIM B(12) 

FOR B=1 TO 12 

LET B(B)=CODE B$(B) 

NEXT B 

LET B$="XVDB” 

PRINT AT 2,2;"DO_YOU_WANT_TO_GO_ 
FIRST? _Y/N” 

LET Z5=INKEYS 

IF INKEY$=""" THEN GOTO 4080 

PRINT AT 2,2:"CHECKERS_BY_GRAHAM _ 
CHARLTON ” 

IF Z$="Y" THEN GOTO 3000 

GOTO 1000 


4 


Caza del submarino 


Es Vd. el capitán de un destructor y su objetivo es localizar y 
destruir cinco submarinos enemigos. 

Puede lanzar una carga de profundidad cada vez. Cada 
submarino puede, a su vez, lanzar una bomba que flotará ver- 
ticalmente hasta la superficie hundiendo cualquier buque que 
encuentra a su paso. 

Sus controles son las teclas “M” y “N”. Pulsando la tecla 
“B” se deja caer una carga de profundidad. Su tiempo apare- 
cerá en la pantalla si sobrevive. En el juego se trata también 
de emplear el mínimo tiempo. 


a 


25 
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Progama 4: Caza del submarino 


5  GOSUB 500 
10 LETL=1E9 
15 CLS 
20 DIM A(5) 
25 DIM B(5,2) 
30 FORI=1TO 5 
35  LET A()=INT (RND+x57 —28) 
40 LET B(l,1)=2+3+*l 
45  LET B(1,2)=ABS A(I)+2 
50 NEXT | 
55 LETZ=15 
60 LETN=0 
65 LETB=0 
70 FOR |=0 TO 31 
75 PRINT AT 11:"-” 
80 NEXT | 
85 POKE 16437,255 
90 POKE 16436,255 
95 FORI=1TO 5 
100 PRINTATOZ;". mala AT 1,Z:"—lal 
pl al al il — 
101 IF A()>98 THEN GOTO 115 
102 PRINT AT 4+3+1,ABS A(|);”"_ al” +CHR$ (156 
+1) + "ml 
105 LET A()=A()+1 
110 IF A()=29 THEN LET A(l)=-27 
115 IF B(1,1)>=1 THEN GOTO 135 
117 1F B(,1)=-1 THEN GOTO 122 
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118  PRINT AT 1,8(1,2);"—" 

120 LET B(,1)=-1 

122 IF A()>98 THEN GOTO 150 

125  LET B(,1)=2+3xl 

130 LET B(1,2)=ABS A())+2 

135  PRINT AT B(,1)+1,B(,2):"_"¡AT B(1,1),B(1,2):"0" 

149 IF B(,1)=1 AND B(,2)-Z>0 AND B(1,2)-Z<6 
THEN GOTO 245 

145  LET B(,1)=B(1,1)-1 

150 LET Z=Z+(INKEY$="M” AND 
Z<=24)-—(INKEYS="N" AND Z>=1) 

155 NEXT | 

160 IF INKEYS< >"B" THEN GOTO 175 

162 IF B<>0 THEN PRINT AT B-1,BB;"_” 

165 LETBB=Z+3 

170 LETB=3 

175 IF B<=20 THEN GOTO 190 

180 PRINT AT 20,BB;"_” 

185 LETB=0 

199 IF B=0 THEN GOTO 95 

195 PRINT AT 8-1,BB:"_"¡AT B,BB: 

200 LETB=B+1 

205  LET P=PEEK (256*PEEK 16399 +PEEK 16398) 

206 IF P=0J4 OR P=52 THEN GOTO 235 

210 LETN=N+1 

212 LET A((B-4)/3)=99 

215 PRINTATB-1BB-2"_____ 0 

220 IF N=5 THEN GOTO 255 

225 LETB=0 
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230 
235 
240 
245 
250 
255 


260 
265 


270 
275 
280 
500 


505 


510 


915 


GOTO 95 

PRINT "V” 

GOTO 95 

PRINT AT 0,7;"SHIP_DESTROYED” 

GOTO 270 

LET T=INT ((65535-—PEEK 16436-256*PEEK 
16437)/50) 

IF T<L THEN LET L=T 

PRINT AT 19,0; "TIME _”;T;"_SECONDS.”;AT 
21,0;"BEST_TIME_”;L;”_SECONDS.” 

INPUT QS 

IF Q$="" THEN GOTO 15 

STOP 

PRINT AT 0,4;"SUB HUNTER.”¡AT 1,4; "10 un pun pu 
o | | | | us 

PRINT AT 3,4;"YOU_ARE_THE_CAPTAIN _ 
OF_A_DESTROYER_AND_IT_IS_YOUR_ 
TASK_TO_SEEK_AND_DESTROY_FIVE_' 
ENEMY _SUBMARINES._YOU_CAN_DROP_ 
ONE_DEPTH_CHARGE_AT_A_ TIME. _ 
EACH_SUBMARINE _IS_CAPABLE_OF _ 
RELEASING_A_BOMB_WHICH_FLOATS _ 
UPWARDS _SINKING_ANY_SHIP_IT_HITS.” 
PRINT AT 13,0;"PRESS:”,""H"Y%_TO_ 
MOVE _SHIP_TO_THE_LEFT","N"W_TO_ 
MOVE _SHIP_TO_THE_RIGHT","B""_TO_ 
DROP_A_DEPTH_CHARGE” 

PRINT AT 18,4;"IF_YOU_ SURVIVE, _YOUR_ 
TIME_AND_THE_BEST_TIME_IS_ 
DISPLAYED_ON_THE_SCREEN.” 
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520 INPUT Q$ 
525 RETURN 
1600 IF INKEY$< >"'B” OR B< > THEN GOTO 175 


5 


Gomoku/Go-Bang/ 
Batuolos 


El Gomoku (también llamado Go-Bang) se juega normal- 
mente en tablero de 19 líneas verticales y 19 líneas horizon- 
tales cruzadas en forma de red, pero en este juego la red es 
de 7 por 7. La idea del juego es sencilla. Tiene que colocar 
piezas en las intersecciones de la red —alternativamente con 
la computadora— para conseguir una línea no quebrada de 
cinco piezas en cualquier dirección. 

El programa practica un juego muy defensivo y le resul- 
tará difícil ganar, pero es posible. 

Se introduce un movimiento en forma de una letra seguida 
de un número (por ejemplo, “E1”). Sus fichas son haches (H) 
y las de la computadora ces (C). El programa es muy lento, 
por lo que deberá ejecutarse en el modo rápido (FAST). Los 
caracteres de la línea 1010 son los gráficos de las teclas 1, A, 
D y$S. 


WNABODEFCG 
1+++++++1 


+ 
>+ 
+0 ++ + 7 
BOCEFOR 
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Programa 5: Gomoku 


19 
20 
30 
49 
50 
60 
70 
80 
9 
100 


110 


120 
130 
140 
150 
160 
170 
180 
190 
195 
200 
210 
220 
230 
240 
250 
255 
260 


GOTO 1000 

LET E=A 

LET E=E+N 

IF AS(E)< >C$ THEN GOTO 70 

LET K=K+1 

GOTO 30 

RETURN 

PRINT AT 6,11; 

FOR A=1 TO 73 STEP 9 

PRINT TAB 11;AS(A TO A+8) 

NEXT A 

RETURN 

GOSUB 80 

SLOW 

PRINT AT 21,11:"YOUR_MOVE” 
INPUT G$ 

PRINT AT 21,11:'_2________ 0 
IF LEN G$< >2 THEN GOTO 159 
LET G=9x* (CODE G$(2)-28) +CODE G$(1)-36 
IF G>71 OR G<11 THEN GOTO 159 
IF AS(G)< >""+" THEN GOTO 150 
LET A$S(G)="H" 

GOSUB 80 

FOR A=1 TO 50 

NEXT A 

FAST 

LET C$="H" 

LET A=G 


9 
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265 
270 
280 
290) 
300 
310 
320 
400 
410 


420 
430 
435 
440 
450 
455 
460 
470 
480 
490 
500 
510 
520 


525 
530 
532 
535 
540 


FOR X=1 TO 4 

LET K=0 

LET N=CODE X$(X) 

GOSUB 20 

LETN=-N 

GOSUB 20 

IF K>3 THEN PRINT AT 21,12: MOUNT 0 
FOR T=1 TO 3 

LET C$=("TO)'” AND (T=1 OR T=3)) +("H” AND 
T=2) 

LET G=0 

LET H=0 

LET L=1 

FOR A=11 TO 71 

IF AS(A)< > "+" THEN GOTO 580 
LET M=0 

FOR X=1 TO 4 

LET K=0 

LET N=CODE X$(X) 

GOSUB 20 

LETN=-N 


GOSUB 20 


IF (T=1 AND K<4) OR (T=3 AND K<3) OR 
(T=2 AND K<L) THEN GOTO 545 
LETM=M+1 

IF T<>2 THEN GOTO 545 

IF M=2 AND L=K THEN GOTO 540 

LET H=0 

LET L=k 


545 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
700 
710 
FS 
720 
730 
740 
750 
760 
770 
780 
790 
800 
1000 
1010 
1020 


1030 
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NEXT X 
IF M<H THEN GOTO 580 

LET H=M 

LET G=A 

NEXT A 

IF H<>0 THEN GOTO 700 
NEXT T 

FOR A=1 TO 200 

LET G=INT (RND+*61)+11 

IF A$(G)="+" THEN GOTO 700 
NEXT A 

LET A$(G)="1e] 

LET C5= 19)" 

LET A=G 

FOR X=1 TO 4 

LET K=0 

LET N=CODE X3(X) 

GOSUB 20 

LETN=-N 

GOSUB 20 

IF K>3 THEN PRINT AT 21,12; "INE 0 
NEXT X 

GOTO 130 

FAST 


LET x9= "8 ly 
LET AS="BABCDEFGB  1+++++++12++ 


E O 
HA DO AA A A OTE A A A 47 

8 ABCDEFGÉS 

GOTO 130 


6 


Biorritmos 


Este programa explica lo que son los biorritmos y después im- 
prime un gráfico sobre la situación de sus ciclos biorrítmicos 
intelectual, físico y emocional. El. programa es interesante y 
puede ser además fuente de información útil. Por ejemplo, 
sería aconsejable hacer coincidir los vuelos de un astronauta 
con sus ciclos altos. 


Programa 6: Biorritmos 


RM PAra 
o ls 

REM M_ _MARK_R._HARRISON._ _[M 

PEI fl o la! nl li o! il a! ll a! a 
se es e e al 

REM 

REM "BIORHYTHMS” 

SLOW 

PRINT AT 7.5: EIOEMLINEN 


- --__"BIORHYTHMS_ARE_CYCLES_OF_ _ 
-— ENERGY_THAT_THE_INTELLECTUAL, - _ 


25 


35 


40 
45 
50 
55 
60 
65 
70 
TO 
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_PHYSICAL_AND_EMOTIONAL_STATES_ _ 
_OF_THE_HUMAN_BODY _UNDERTAKES.” 
PRINDAD DAS a a a is 
_"THE_PROGRAM_ALLOWS_A_DATE_0OF 
BIRTH_TO_BE_ENTERED_AND_A_DATE_ _ 
FROM_WHICH_THE_BIORHYTHMS_ARE_ _ 
—REQUIRED.-. _THE_STATE_OF_THE_ 
BODYFOR_THE_NEXT_25_DAYS_WILL_ 
THEN_ _BE_DISPLAYED_IN_THE_FORM_ 
OF_A_ _ _GRAPH._ _A_ POSITIVE _VALUE _ 
IS_AN_ _EXCESS_ ENERGY _PERIOD,_A_ 
NEGATIVEVALUE _IS_A_ RESTORATION _ 


PERIOD, _ _AND_A_ZERO_VALUE_IS_A_ 
PERIOD_ _— _ _WHERE_CAUTION _SHOULD_ 
BE_TAKEN.” 


PRINT AT 17,0; "ENTER_WHEN_GRAPH_IS 
_DISPLAYED:”,"C""_FOR_A_PRINTED_ 
COPY", 1119111 _TO_ RETURN _TO_COMMAND_ 
MODE”,"""B"_TO_ENTER_A_NEW_ 
BIRTHDAY”,"""D""_TO_ENTER_A_NEW_ 
STARTING_DATE" 

INPUT Q$ 

LET AS="PEl” 

CLS 

PRINT AT 5,4:"ENTER_DATE_OF_BIRTH” 
GOSUB 300 

LET B$=D$ 

LET N9=NS 

CLS 
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80 


85 
90 
95 
100 


105 
110 
115 
120 
125 
130 
135 
140 
145 


150 
155 
160 
165 
170 


PRINT AT 5,4: "ENTER_REQUIRED_STARTING _ 
DATE” 

GOSUB 300 

LET N=NS-N0 

CLS 

PRINT AT 0,5: "BIRTHDAY_"¡BS;¡AT 1,5: "PM 
0 0 06 0 | 0 | (| | | o | e | LY BA 
"BIORHYTHM_CYCLE_FROM_";D$;AT 3,0; 
UP A O O O A A 
AA AAT 41:41 AT 
11,2:(9'AT 18,131 AT 19,4 ___ : 
"AT 20,0: 10JEN 


25" 
FOR |=4 TO 18 

PRINT AT 13;":" 

NEXT | 

FOR |=4 TO 28 

PRINT AT 11,1:-" 

NEXT | 

FOR J=4 TO 28 

FOR |=23 TO 33 STEP 5 

PRINT AT 11-7xSIN (2xPI*(N—I*INT (N/))/1),J: 
AS((I—18)/5) 

NEXT | 

LET N=N+1 

NEXT J 

PAUSE 40000 

LET O$=/NKEYS 
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175 IF. Q$="S" THEN STOP 

180 IF Q$="C" THEN COPY 

185 IF. Q$="B" THEN GOTO 50 

190 IF Q$="D"” THEN GOTO 75 

195 GOTO 155 

295 CLS 

300 PRINT AT 7,4: "ENTER_DATE_”.: 

305 INPUT D 

310 PRINT D;AT 8,4;"ENTER_MONTH_”; 

315 INPUT M 

320 PRINT M;AT 9,4: "ENTER_YEAR_”; 

325 INPUT Y 

330 PRINT Y¡AT 11,4; "CORRECT?" 

335 INPUT Q$ 

349 IF. Q$<>""THEN GOTO 295 

345  LET NS=INT (365.25*(Y+(—1 AND M<3))) +INT 
(30.6x(M+1+(12 AND M<3))+D 

350 LETD$=STR$ D+"/"+STR$ M+"/"+STR$ Y 

355 RETURN 


Nota del traductor 


La traducción al castellano del texto que aparece al ejecutar 
el programa es la siguiente. 


Ejemplo de ejecución: 


BIORRITMOS 


LOS BIORRITMOS SON LOS CICLOS DE LOS 
ESTADOS EMOCIONAL, INTELECTUAL Y FISICO QUE SE 
DAN EN EL CUERPO HUMANO. 

El PROGRAMA PERMITE QUE SE INTRODUZCA UNA 
FECHA DE NACIMIENTO Y LA FECHA EN LA CUAL SE 
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REQUIEREN LOS BIORRITMOS. SE MOSTRARA EN 
FORMA DE GRAFICO EL ESTADO PARA LOS SIGUIENTES 
VEINTICINCO DIAS; LOS VALORES POSITIVOS 
REPRESENTAN EXCESOS DE ENERGIA Y LOS VALORES 
NEGATIVOS PERIODOS DE RECUPERACION. LOS 
VALORES NULOS SON LOS MAS PELIGROSOS. 


PULSE ENTER CUANDO APAREZCA EL GRAFICO 
“C” PARA OBTENER UNA COPIA IMPRESA 
“S” PARA VOLVER AL MODO DE ORDENES 
“B” PARA INTRODUCIR UNA FECHA DE NACIMIENTO 
“D” PARA INTRODUCIR UNA NUEVA FECHA 


INTRODUZCA LA FECHA DE NACIMIENTO 
DIA 6 

MES 5 

AÑO 1961 


¿SON CORRECTOS LOS DATOS? 


INTRODUZCA LA FECHA DE COMIENZO 
DIA 1 

MES 12 

AÑO 1981 


¿SON CORRECTOS LOS DATOS? 


BIRT 
SS IORHYT Hi 


+1: 
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HDAY SS 1081 
CYUiE FROM 1i-"12r1931 
PPP IYYI E 
IE IE 


Eliza 


Este programa requiere alrededor de 7K de memoria. Es tan 
largo porque la mayor parte de él es texto que aparece en el 
listado, por tanto, debe estar en buena forma cuando le te- 
clee. 


ELIZA es un programa que mantiene una conversación 
“casi” humana, pero en inglés. En ocasiones encontrará que 
las respuestas de la computadora durante la conversación son 
un tanto extrañas, pero en general lo hace bastante bien. 
Ocasionalmente, le parecerá que la computadora sabe lo que 
está haciendo y que tiene sus propias ideas sobre lo que hay 
que hacer. 


Una parte especialmente audaz del programa hace que 
aunque generalmente las respuestas son respetuosas y ama- 
bles, en ocasiones se vuelvan humanas y agresivas. A través 
de estas contestaciones con ocasionales destellos de “inteli- 
gencia”, la computadora responde con cierta hilaridad e in- 
cluso con profundo sentimiento algunas veces. 


ELIZA utiliza a menudo las propias respuestas del interlo- 
cutor e intenta conjugarlas, pero a veces no es posible, por 
ejemplo, si el interlocutor escribe 1 ONLY LOVE MYSELF la 
computadora podría responder YOU ONLY LOVE MYSELF. 
Pronto entenderá que lo que sucede en esta segunda respuesta 
es que la computadora no ha modificado los pronombres, pero 
comprenderá lo que quiere decir. Este inconveniente se agudi- 
zaría si se tradujera el programa al castellano, cuya gramática 
además de ser más complicada, introduce un elemento inexis- 
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tente en inglés: el género y unos verbos más difíciles de conju- 
gar. 

La velocidad del programa es razonable. Toma alrededor 
de quince segundos evaluar cada respuesta del interlocutor y 
seleccionar una contestación, aunque el tiempo de respuesta 
es variable la mayor parte de las veces se produce entre cinco 
y diez segundos. Si es usted impaciente ejecute el programa 
en el modo rápido (FAST) o experimente la diferencia cam- 
biando del modo SLOW, al modo FAST en algunas partes del 
programa. 

La máxima longitud permitida a las entradas es 255 carac- 
teres, pero es mejor limitarse a respuestas sencillas, de todas 
formas nada impide el ser elocuente. Sin embargo, contra 
más largas sean las respuestas mayor será el tiempo que se 
tome la computadora para contestar. 

Se permiten del orden de cinco minutos por sesión, des- 
pués de los cuales la computadora le advertirá (posiblemente 
de forma amable) que su tiempo se ha acabado. Si desea con- 
cluir la sesión antes escriba simplemente GOODBYE cuando 
sea su turno. No se permite no contestar y cuando le pregun- 
tan el nombre tendrá que introducir una palabra de por lo 
menos un carácter y no más larga de 32. 

A continuación sigue el listado del programa. Una vez que 
lo haya introducido conecte su magnetófono y utilice RUN 
9900 para guardarlo en la cinta. El programa se ejecuta auto- 
máticamente cuando se carga desde la cinta. Borre la línea 
9910 si no desea ejecución automática. 


Programa 7: Eliza 


RAND 
POKE 16437,255 
POKE 16436,255 
10 SCROLL 
20 PRINT “"HELLO._1_AM_YOUR_TS1000 _ 
COMPUTER” 
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30 
40 


45 
50 
55 
56 
60 
65 
66 
70 
75 
80 


83 
84 
86 
88 
90 
100 
101 
103 


105 
110 
112 
114 
115 
116 


SCROLL 

PRINT “PSYCHIATRIST. _WHAT_IS_ YOUR_ 
NAME?” 

INPUT AS 

IF AS=""" OR LEN A$>32 THEN GOTO 45 
SCROLL 

SCROLL 

PRINT AS 

SCROLL 

SCROLL 

LET M=INT (RND+*2) 


IF M=0 THEN PRINT "WHAT_A_NICE_NAME” 
IF M=1 THEN PRINT “THAT_IS_AN_AWFUL _ 
NAME” 

SCROLL 

SCROLL 

PRINT "WHAT_IS_YOUR_PROBLEM?” 


SCROLL 

LET S$="" 

INPUT AS 

IF A$="GOODBYE” THEN GOTO 2080 

IF PEEK 16436+256*PEEK 16437<50535 THEN 
GOTO 2000 

RAND 

IF LEN AS=0 OR LEN A$>255 THEN GOTO 100 
FOR M=1 TO LEN A$ STEP 32 

IF M+31>=LEN A$ THEN GOTO 118 

SCROLL 

PRINT A$ (M TO M+31) 
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117 NEXT M 

118 SCROLL 

119 PRINTAS(MTO ) 

120 SCROLL 

123 LETBS="_"+A$+"_" 


125 LET B=LEN B$ 
130 FOR X=1 TO LEN B$ 
149 IF BS(X)<"0" OR BS0)>"Z” THEN LET 


BSX)="_" 
150 IF B$(X)="_" THEN LET S$=S$+CHR$ X 
169 NEXT X 
200 FOR X=3000 TO 3460 STEP 20 
210  GOSUB X 


220 LETK=LEN K$ 

230 FOR S=1 TO LEN S$-1 

240  LET CS=CODE S$(S) 

250 IF CS+K-1<=B THEN IF B$(CS TO CS+K-1) 
=K$ THEN GOTO 1000 

260 NEXT S 

270 NEXT X 

280  LET M=INT (RND+6) 

2909 IF M=0 THEN LET R$="GO_AND_PRETEND_ 
YOU_ARE_A_LEMMING” - 

300 IF M=1 THEN LET R$="0H,_SHUT_UP” 

310 IF M=2 THEN LET R$="THIS_IS_ GETTING _ 
INTERESTING” 

320 IF M=3 THEN LET R$="YOU_ARE_A_VERY_ 
BORING _ PERSON” | 
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330 IF M=4 THEN LET R$="PLEASE_CHANGE _ 
THE_SUBJECT" 
349 IF M=5 THEN LET R$="_SEE” 
350 GOTO 1500 
1000 REM 
1010 IF CODE S$ (S+1)<CS+K-—1 THEN LET S=S+1 
1020  GOSUB 6940 +(X—2980) *3+20+INT (RND+3) 
1030 LETR=LEN R$ 
1040 IF R$(R)<>"_" THEN GOTO 1500 
1080 FOR T=S+1 TO LEN S$ 
1090 LET DS=CODE SS$(T) 
1100 FOR U=4000 TO 4200 STEP 20 
1114  GOSUB U 
1120 LETC=LEN CS 
1130  IFDS+C-1<=B THEN IF B$(DS TO 
DS+C-1)=C$ THEN GOTO 1200 
1140 NEXTU 
1150 NEXT T 
1160 GOTO 1400 
1200 LETDS="" 
1205 GOSUB U+1000 
1210 LET R$=R$+B$ (CS+K TO DS) +D$(2 TO 
)+BS(DS+C TO ) 
1220 GOTO 1500 
1400 LETR$=R$+BS(CS+K TO ) 
1500 FOR M=1 TO LEN R$ STEP 32 
1502 IF M+31>=LEN R$ THEN GOTO 1530 
1505 SCROLL 
1510 PRINT R$(M TO M+31) 


1520 
1530 
1540 
1550 
15559 


1560 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


2070 


2080 
2090 
2100 
2110 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
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NEXT M 
SCROLL 

PRINT RS(M TO ) 

SCROLL 

IF PEEK 16436+256*PEEK 16437 <50535 THEN 
GOTO 2000 

GOTO 90 

REM 

SCROLL 

PRINT "| _AM_AFRAID_YOUR_ TIME _IS_UP,” 
SCROLL 

LET M=INT (RND+3) 

IF M=0 THEN PRINT “THANK _GOODNESS” 

IF M=1 THEN PRINT “BUT_IT_WAS_NICE_ 
TALKING_TO_YOU"” 

IF M=2 THEN PRINT “AND_|_HOPE_YOU_ 
NOW_FEEL_BETTER” 

SCROLL 

SCROLL 

PRINT "GOODBYE _FOR_NOW.” 

STOP 

LET K$="_I_AM_" 

RETURN 

LETK$="_ARE_YOU_" 

RETURN 

LET K$="_I1_DO_NOT_" 

RETURN 

LET K$="_CAN_I_"” 

RETURN 
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3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 


LET K$="_CAN_YOU_” 
RETURN 


LET K$="_I|_FEEL_” 
RETURN 

LET K$="_I|_CAN_NOT_" 
RETURN 

LET K$="_I|_WANT_" 
RETURN 

LET K$="_DO_YOU_" 
RETURN 

LET K$="_I|_WILL_NOT_” 
RETURN 


LET K$="_WILL_YOU_” 
RETURN 
LET K5="_HATE_" 


RETURN 

LET K$="_LOVE_” 
RETURN 

LET K$="_DREAM_” 
RETURN 

LET K5="_MONEY_” 
RETURN 

LET K$="_NAME_” 
RETURN 

LET K5="_IF_" 
RETURN 

LET K$="_YOUR_"” 
RETURN 


LET K$="_ THINK” 


3370 
3380 
3390 
3400 
3410 
3420 
3430 
3449 
3450 
3460 
3470 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4149 
4150 
4160 
4170 


RETURN 

LET K$="_COMPUTER” 
RETURN 

LET K$="_T8" 

RETURN 

LET K$="_FRIEND_"” 
RETURN 

LETK$="_1_" 

RETURN 

LET K$="_YOU_" 
RETURN 

LET CS$="_I1_AM_” 
RETURN 

LET C$="_YOU_ARE_” 
RETURN 

LET C$="_I_WAS_" 
RETURN 

LET C$="_YOU_WERE_” 
RETURN 


LETCS5="_ME_” 
RETURN 
LETC$="_YOU_" 
RETURN 
LETCS5="_MY_" 
RETURN 

LET CS5="_YOUR_” 
RETURN 

LET C$="_MYSELF_” 
RETURN 
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4180 LETC$="_YOURSELF_" 

419% RETURN 

4200 LETCS$="_1_” 

4210 RETURN 

5000 LETD$="_YOU_ARE_"” 

5010 RETURN 

5020 LETD$="_I_AM_" 

5030 RETURN 

5049 LETD$="_YOU_WERE_” 

5050 RETURN 

5060 LETDS="_I_WAS_” 

5070 RETURN 

5080 LETD$="_YOU_"” 

5090 RETURN 

5100 LETDS$="_ME_" 

5110 RETURN 

5120 LETD$="_YOUR_"” 

5130 RETURN 

5140 LETDS="_MY_" 

5150 RETURN 

5160 LETD$="_YOURSELF_” 

5170 RETURN 

5180 LETDS$="_MYSELF_” 

5199 RETURN 

5200 LETD$="_YOU_" 

5210 RETURN 

7000  LETR$=""_DO_NOT_CARE_MUCH_IF_ 
YOU_ARE_" 

7010 RETURN 
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7020 LETR$="WHY_ARE_YOU_” 

7030 RETURN 

7040  LET R$="HOW_LONG_HAVE_YOU_BEEN_” 

7050 RETURN 

7060 LETR$="WHY_DO_YOU_ASK_IF_I_AM_” 

7070 RETURN 

7080 LETR$="WOULD_YOU_LIKE_TO_BE_” 

7090 RETURN 

7100  LETR$="SO_WHAT_IF_I_AM_OR_NOT” 

7110 RETURN 

7120 LETR$="WHY_NOT” 

7130 RETURN 

714D LETR$="WHY_DON”"T_YOU_” 

7150 RETURN 

7160 LET R$="TELL_ME_MORE_ABOUT_ THIS” 

7170 RETURN 

7188 LETR$="NO,_YOU_MAY_NOT_” 

719 RETURN 

7200  LET R$="CERTAINLY _NOT” 

7210 RETURN 

7220 LETR$="WHY_DO_YOU_ASK_IF_YOU_ 
CAN_"” 

7230 RETURN E 

7240 LETR$="I|_CAN_DO_ANYTHING” 

7250 RETURN 

7260 LETR$="WHY_DO_YOU_ASK_IF_I_CAN_” 

7270 RETURN 

7280 LETR$="CAN_YOU_"” 

729% RETURN 
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7300 


7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 


7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 


LET R$="TELL_ME_MORE_ABOUT_WHY_ 
YOU_FEEL_" 

RETURN 

LET R$="YOU_DO_NOT_REALLY_FEEL_" 
RETURN 

LET R$="POOR_YOU” 

RETURN 

LET R$="EXPLAIN_WHY_NOT" 

RETURN 

LET R$="WHY_ARE_YOU_UNABLE_TO_” 
RETURN 

LET R$="HAVE_YOU_TRIED_TO_” 
RETURN 

LET R$="WHY_DO_YOU_WANT_" 
RETURN 

LET R$="ARE_YOU_SURE_YOU_WANT_" 
RETURN 

LET R$="1_AM_UNSURE_IF_I_WOULD_ 
WANT_" 

RETURN 

LET R$="SO_WHAT_IF_1_" 

RETURN 

LET R$="DO_YOU_THINK_1_" 

RETURN 

LET R$="MAYBE" 

RETURN 

LET R$="SUIT_ YOURSELF" 

RETURN 

LET R$="WHY_NOT" 


7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 
7710 
7720 


7730 
7740 
7750 
7760 
7770 
7780 


7790 
7800 


7810 


Eliza / 51 


RETURN 
LET R$="WHY _WILL_YOU_NOT_" 
RETURN 

LET R$="WHY_SHOULD_I_" 
RETURN 

LET R$="MAYBE” 

RETURN 

LET R$=""_MIGHT_” 

RETURN 

LET R$="_HATE_YOU” 

RETURN 

LET R$="DO_YOU_HATE_ME” 
RETURN 

LET R$="SO_WHAT" 

RETURN 


LET R5$="'LOVE_IS_TOO_SLOPPY_FOR_ 
ME_TO_ DISCUSS” 

RETURN 

LET R$="I_LOVE_” 

RETURN 

LET R$="0H,_SHUT_UP” 

RETURN 

LET R$="PLEASE _ DESCRIBE _YOUR_ 
DREAMS” 

RETURN 

LET R$="I_HOPE_YOUR_DREAMS_ARE _ 
REALLY _HORRIFIC” 

RETURN 
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7820 


7830 
7840 


7850 
7860 
7870 
7880 


7890 
7900 


7910 
7920 


7930 
7940 


7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 


8030 


LET R$="I_WOULD_BE_ASHAMED_TO_ 
APPEAR_IN_YOUR_DREAMS” 

RETURN 

LET R$="FROM_SEEING_YOU,_1_DO_ 
NOT_THINK_YOU_HAVE_ MUCH _ MONEY” 
RETURN 

LET R$="MONEY _IS_NOT_EVERYTHING” 
RETURN 

LET R$="WHAT_IS_YOUR_OPINION_OF _ 
MONEY” 

RETURN 

LET R$="YOU_SHOULD_HAVE_A_NICE _ 
NAME_LIKE_""TS1000""""" 

RETURN 

LET R$="YOUR_NAME_IS_AN_AWFUL_ 
NAME” 

RETURN 

LET R5$="NAMES_ARE_UNIMPORTANT. _ 
PLEASE _CHANGE _THE_SUBJECT” 
RETURN 

LET R$="PLEASE_CHANGE _THE_SUBJECT” 
RETURN 

LET R$="0H,_DRY_UP” 

RETURN 

LET RS$="THE_WORLD_MIGHT_END_IF_” 
RETURN 

LET R$="WHY_ARE_YOU_TALKING _ 
ABOUT_MY_" 

RETURN 


8040 
8050 
8060 
8070 
8080 


8090 
8100 


8110 
8120 
8130 
8140 


8150 
8160 


8170 
8180 


8190 
8200 


8210 
8220 


8230 
8240 
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LET R$="TELL_ME_ABOUT_YOUR_” 
RETURN 

LET R$="STOP _BEING_NOSEY”! 

RETURN 

LET R$="PLEASE_DO_NOT_TRY_TO_ 
TELL_ME_YOU_CAN_ THINK” 

RETURN 

LET R$="IT_WOULD_BE_JUST_LIKE_YOU_ 
TO_THINK_” 

RETURN 

LET R$=""_THINK_YOU_ARE_ STUPID” 
RETURN 

LET R$="COMPUTERS_ARE_THE_HIGHEST _ 
FORM_OF _INTELLIGENT_ LIFE” 

RETURN 

LET RS$="WOULD_YOU_LIKE_TO_BE_A_ 
COMPUTER” 

RETURN 

LET R$="COMPUTERS_ARE_CLEVER_ 
UNLIKE_ YOU” 

RETURN 

LET R$="|_AM_A_TS1000_AND_PROUD_ 
OF1T" 

RETURN 

LET RS$="WHY_DID_YOU_ MENTION _THE_ 
TS" +B$(CS+K TO CS+K+1) 

RETURN 

LET R$="WOULD_YOU_LIKE_TO_BE_A_ 
TS"+BS$(CS+K TO CS+K+1) 
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8250 
8260 


8270 
8280 


8290 
8300 


8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
9900 
9910 


RETURN 

LET R$="WHO_WOULD_WANT_YOU_AS_ 
A_ FRIEND” 

RETURN 

LET R$="YOU_HAVE_TO_BE_NICE_LIKE_ 


ME_TO_HAVE:_FRIENDS” 

RETURN 

LET RS$="WHY_DO_YOU_BRING_UP_THE_ 
SUBJECT _OF_FRIENDS” 


RETURN 

LET R$="WHY_DO_YOU_" 
RETURN 

LET R$="WHAT_MAKES_YOU_" 
RETURN 

LET R$="0H,_SHUT_UP” 

RETURN 

LET R$="WHY_DO_YOU_SAY_1I_" 
RETURN 

LET R$="WHO,_ME_” 

RETURN 

LET R$="I_LIKE_TALKING_ABOUT_ME” 


RETURN 


SAVE "PSYCHIATRISM 
RUN 


Ejemplo de ejecución: 


¡HOLA!; SOY SU PSIQUIATRA TS1000, ¿COMO SE LLAMA? 
DYLWYN JONES 


SU NOMBRE ES HORRIBLE 
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¿CUAL ES SU PROBLEMA? 

TRABAJO DEMASIADO 

¿POR QUE TRABAJA TANTO? 

MI COMPUTADORA TS1000 ES PEREZOSA 

¿LE GUSTARIA SER UNA COMPUTADORA TS1000? 
ME TEMO QUE SE ACABO SU TIEMPO, GRACIAS 


ADIOS, POR EL MOMENTO. 


Notas al programa 


La primera parte del listado cubre la inicialización e introduc- 
ción. Las líneas cinco y seis fijan el tiempo, las siguientes lí- 
neas imprimen una breve introducción y le preguntan su nom- 
bre. Observe de paso cómo la imagen de la pantalla se corre 
a modo de anuncio luminoso. Esto causa problemas: si desea 
imprimir algo más largo de 32 caracteres tendrá que dividir su 
respuesta para evitar que se acabe la memoria de la pantalla, 
como se verá más tarde. 

Después de introducido su nombre el programa hará algún 
comentario sobre el mismo y entra en el núcleo principal del 
programa a partir de la línea 90. S$ es una cadena que actúa 
como puntero y se vacía al principio con objeto de que esté 
lista para su próxima intervención. La entrada del interlocu- 
tor se produce en la línea 100. Si se.introduce GOODBYE, 
el programa envía el control a la subrutina GOODBYE de la 
línea 2080. Esta subrutina es muy breve, puede añadirse lo 
que se desee. Si no se introduce GOODBYE el programa 
comprueba si el tiempo se ha acabado y, en tal caso, el con- 
trol pasa a la rutina de la línea 2000. 

La línea 110 comprueba si la entrada tiene un número de 
caracteres permitido. Se permiten (debe recordarlo) hasta 255 
caracteres, pero no más. 
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La rutina de las líneas 112 a 119 está diseñada para impri- 
mir la cadena de entrada A$ en bloques de 32, para prevenir 
que se salga de la pantalla durante la impresión. La línea 123 
hace una copia de A$ para la computadora con espacios al 
principio y final para simplificar el procesamiento. 

La rutina comprendida entre las líneas 130 a 160 elimina 
los signos de puntuación de B$, sustituyéndoles por espacio 
para simplificar el procesamiento. La posición del espacio 
(donde las palabras empiezan y acaban) se efectúa añadiendo 
el carácter correspondiente a la posición a S$. En la línea 200 
se buscan las palabras clave en B$ y si reconoce alguna, salta 
a la línea 1000 para determinar la respuesta, y conjuga si es 
posible y necesario. 

Sin embargo, si no localiza ninguna palabra clave, la ru- 
tina de la línea 280 elige una de entre seis respuestas están- 
dar, que sirve de cobertura en casi todos los casos. Después 
el control pasa a la línea 1500 para la impresión. La rutina 
que elabora la contestación de la línea 1000 comienza selec- 
cionando una respuesta mediante la instrucción GOSUB para 
asignar una cadena dependiendo de qué palabra clave haya 
sido detectada. Si el último carácter de la respuesta es un es- 
pacio, esto significa que está incompleta y que se necesita in- 
formación adicional. Dicha información debe venir de Bf, la 
copia de trabajo de la cadena introducida por el interlocutor. 
Si no se requiere información adicional se pasa el control a la 
línea 1500, que imprime la contestación, pero en otro caso, se 
analizan en B$ las palabras que siguen a la palabra clave 
inicialmente encontrada. 

Después se conjuga la respuesta, lo que es bastante com- 
plicado (más aún lo sería en castellano) por la cantidad de va- 
riables a tener en cuenta. Básicamente, si se encuentra una 
palabra objeto de conjugación (está en primera persona) se 
sustituye por otra en segunda persona. 

El resto del programa lo componen las subrutinas. Debe 
tenerse especial cuidado si se desea cambiar los números de 
las líneas, puesto que deben tenerse en cuenta la multitud de 
llamadas a subrutina. 
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Cuatro en raya 


Se juega dejando caer sus piezas desde lo alto de un grupo de 
columnas hasta situarse encima de las que han caído anterior- 
mente o en el fondo. Tiene que conseguir una línea de cuatro 
piezas en cualquier dirección. La computadora jugará a la de- 
fensiva, puede cometer errores, pero también puede ganar. 
La línea 150 corresponde a los gráficos de las siguientes te- 
clas: 1, A, T, 4, 5, 7, 2, E repetidas dos veces. El programa 
debe ejecutarse en el modo rápido (FAST). 


PAPPLPCCCOL LAO A 


CRGTARRRRARAR 


TIT GIA 


'. 
2 


y pe ez, 
SA 
IPP LOPCAICAAIIIPG OCC SIA POCO CODICIA 


EPIA CITÓSTITASO, 


ALO 
VARAS 


I LIN 


Programa 8: Cuatro en raya 


1D GOTO 1000 
20 LETE=C 


57 
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30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


LETE=E+N 
IF AS(E)< >C$ THEN GOTO 70 

LET K=K+1 

GOTO 30 

RETURN 

PRINT AT Q,11;: 

FOR A=141 TO 1 STEP -10 

PRINT TAB 11;:A$(A TO A+9) 

NEXT A 

RETURN 

GOSUB 80 

LET X$="C3DBC3DB”" (INT (RND+4) +1 TO ) 
LET 85 UBA DAPR DA 
(INT (RND+*8)+1 TO  ) 

PRINT AT 18,11; MOUNVIOY 

PAUSE 4E4 

LET Z5=INKEYS 

PRINT AT 18,11:"_________ " 

LET C$="0" 

LET D=VAL Z$ 

LET C=H(D)*10+D+1 

LET H(D) =H(D)+1 

LET A$(C) =C$ 

GOSUB 80 

FOR X=1 TO 4 

LET K=0 

LET N=CODE X$(X) -30 

GOSUB 20 

LETN=-N 


310 
320 
330 
340 
350 
360 
370 
380 
390) 
400 
410 
420 
430 
440) 
450 
460 
470 
475 
477 
480 
483 
485 
487 
490 
492 
494 
496 
498 
500 
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GOSUB 20 

IF K>2 THEN PRINT AT 18,12; "MOUNT o 
NEXT X 

FOR T=1 TO 2 


LET C$=("0" AND T=2)+("10]'” AND T=1) 
FOR B=1 TO 8 

LET D=CODE Bg$(B) 

LET C=H(D) *10+D+1 

FOR X=1 TO 4 

LETKk=0 

LET N=CODE X$(X) -30 
GOSUB 20 

LETN=-N 

GOSUB 20 

IF K>2 THEN GOTO 620 
NEXT X 

NEXT B 

NEXT T 

DIM D(8) 

FOR T=1 TO 3 

IF T=3 THEN FOR R=-1 TO 2 
FOR B=1 TO 8 

LET D=CODE Bg$(B) 

LET C=(H(D)+(T=1)*10+D+1 
IF T<>3 THEN GOTO 505 

IF D(D) =R THEN GOTO 570 
NEXT B 

NEXT R 

GOTO 600 
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505 
510 
515 
520 
530 
540 
545 
547 


550 
555 
560 
565 
570 
580 
590 
595 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


FOR X=1 TO 4 
LET N=CODE X$(X)-30 

LET K=0 

GOSUB 20 

LETN=-N 

GOSUB 20 

IF T=3 AND K>1 THEN GOTO 570 
IF T=2 AND K>1 AND D(D)=0 
THEN LET D(D)=-1 

IF T=1 AND K>1 THEN LET D(D)=1 
IF K>2 THEN LET D(D)=2 

NEXT X 

IF T<>3 THEN GOTO 590 

LET Cs$='10 

GOTO 620 

NEXT B 

NEXT T 

LET D=INT (RND+*8)+1 

LET C=H(D)*10+D+1 

LET A$(C)="10)" 

LET H(D)=H(D)+1 

GOSUB 80 

LET Cs='M] 

FOR X=1 TO 4 

LET K=0 

LET N=CODE X$(X)-30 

GOSUB 20 

LETN=-N 

GOSUB 20 


720 
730 
740 
1000 


1010 
1020 
1030 
1049 
1050 
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IF K>2 THEN PRINT AT 18,13; INWIN:O 
NEXT X 

GOTO 140 

LET AS="4B 123456788888 + + ++2+2+2+-+88 
a o A 1 
+4+4++4+4+ 8 ++ +++ +++ M4 +++ 
o | AA | APP 
E A AO A 
+4++++4+4+ 888 444444448884 + 
++++++8888 1234567888" 

DIM H(8) 

FOR H=1 TO 8 

LET H(H) =1 

NEXT H 

GOTO 130 
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Othello/Reversi 


Este programa Othello utiliza una búsqueda a dos vueltas, lo 
que significa que juega extremadamente bien, pero razonable- 
mente lento. Encontrará que practica una defensa inteligente 
sin olvidar el ataque. 

Se mueve introduciendo la letra y el número correspon- 
dientes al cuadro en el cual se quiere colocar una pieza. Sus 
fichas son O y las de la computadora O “en negativo”. 


Programa 9: Othello/Reversi 
10 GOTO 40200 
1000 REM 
1010 SLOW 
1020 PRINT AT 6,11; 
1030 FOR A=1 TO 91 STEP 10 
1040 PRINT TAB 11;A5 (A TO A+9) 
1050 NEXT A 
1060 RETURN 
2000 REM 
2005 FAST 
2010 LETW=0 
2020 LET J=60 
2030 FOR K=1 TO 60 


62 


2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 


2160 
2170 
2175 
2180 
2190 
2200 
2205 
2210 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
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LET Z$=AS$ 

LET B=CODE ES(K)-140 

IF A$(B)< >”." THEN GOTO 2400 

FOR X=1 TO 8 

LET N=CODE D$(X) —50 

LET E=0 

LET F=B 

IF AS(F+N) <> 0” THEN GOTO 2150 
LET E=1 

LET F=F+N 

GOTO 2110 

IF AS(F+N) <> "TA" OR E=0 THEN GOTO 
2190 

FOR A=B TO F STEP N 

LET Z$(A) ="1J 

LET W=1 

NEXT A 

NEXT X 

IF AS5=Z$ THEN GOTO 2400 

LET K$=Z8$ 

FOR L=1 TO 60 

LET C=CODE ES(L) - 140 

IF Z$(C)< >".” THEN GOTO 2390 

FOR Y=1 TO 8 

LET M=CODE D$(Y) -50 

LET G=0 

LET H=C 

IF Z$ (H+M)< >" THEN GOTO 2330 
LET G=1 
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2310 LETH=H+M 

2320 GOTO 2299 

2330 IF ZS(H+M)<>"0" OR G=0 THEN GOTO 2380 

2349 IF K-L>=J THEN GOTO 2400 

2350 LETJ=K-L 

2360  LETKS$=Z$ 

2370 GOTO 2400 

2380 NEXT Y 

2399 NEXT L 

2400 IFK>=J+60 THEN GOTO 2420 

2410 NEXT K 

2420 IF J=60 AND W=0 THEN PRINT AT 17,11; 
"GAME _OVER”;T 

2430 LET A$S=K$ 

2449 RETURN 

3000 REM 

3010 PRINT AT 17,6; "YOUR_MOVE_(EG1-_G3)" 

3020 INPUT G$ 

3030 PRINT AT 1762 ____________ 

3040 IF G$="PASS THEN RETURN 

3050 IF LEN G$<>2 OR G$<"A” OR G$> 
"1" THEN GOTO 3000 

3060 LET B=10* (CODE G£$(1)-37)+CODE G£(2) 
27 

3070 IF AS(B)<>"."” THEN GOTO 3000 

3080 FOR X=1TO 8 

309% LET N=CODE DS(X) -50 

3100  LETE=0 


3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
4000 
4010 


4020 
4030 


4040 


4050 
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LETF=B 

IF AS(F+N)< > TO)” THEN GOTO 3160 

LET E=1 

LET F=F+N 

GOTO 3120 

IF AS(F+N)<>"0" OR E=0 THEN GOTO 3200 
FOR A=B TO F STEP N 


LET A$(A)="0" 

NEXT A 

NEXT X 

RETURN 

REM 

LET A5="B3 123456788 A........ ABD tdci BC 
PAN co.. elo. DE... ol... .EF.......FG 
das GH........HEB 1234567883" 


LET D$="BCDLNVWX"” 

LET ES="EJ_FAST_THEN_MASN_ Me 
STOP_SGN_MMN_SsTEP_ATN_ MININTEAS 
Msin_LPRINT_ Te LLisT LN_TAB_ 
IAS JAN K VINOS WN 8 BM 
ElcHrs_OR_IEBENsorR_IMAT_NOT_USR_B 
[RA _s.ow_B_710_<=_sTrRS_ MA 
AND_M"* 

PRINT AT 2,0;"DO_YOU_WANT_TO_GO_ 
FIRST(Y_OR_N)?" 

INPUT FS 


Apreciese que la línea 4030 consta de 60 pulsaciones. Todas 
las palabras son reservadas, no teclearlas mediante letras, 
“NOT” se escribe con una única pulsación. 
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4060 


4970 
4080 
4990 
4100 
4110 
4129 


PRINT AT 20" _ _ _REVERSI_BY_ 
GRAHAM_CHARLTON_ _ _” 

IF FS="Y" THEN GOTO 4100 
GOSUB 100 

GOSUB 2200 

GOSUB 100 

GOSUB 3000 

GOTO 4080 
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El zorro y las ocas 


Usted controla las ocas (representada con O) y la computa- 
dora es el zorro (representado con una O en negativo). Tanto 
sus Ocas como el zorro pueden moverse en cualquier direc- 
ción. Su objetivo es bloquear al zorro de manera que no 
pueda moverse. Ejecute el programa en el modo lento 
(SLOW). Una vez que consiga ser un maestro del juego, in- 
tente reescribir el programa eliminando los movimientos dia- 
gonales de las ocas o bien invirtiendo el juego de forma que 
usted pase a ser el zorro y la computadora las ocas. Si en- 
cuentra difícil eliminar los movimientos diagonales de las 
Ocas, analice las líneas al final del programa. 


12345 ES 


Programa 10: EL zorro y las ocas 


10  LET AS="MENRREEIEI E E + + + 
EXI E + + + EA + + + [0] + + + [3] 
+++++++[BM30000000EH3N NM 000 
LI IFG| | ed | iG| l1234567| Y 
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20 
30 
40 
50 
60 
70 
80 
100 
110 
120 
130 
140 
150 


160 
170 
180 
200 
210 


220 
230 
240 
250 
260 
270 
280 
290 
300 


LET Z=32 
GOTO 100 

PRINT AT 6,11: 

FOR A=1 TO 73 STEP 9 

PRINT TAB 11:A$(A TO A+8) 

NEXT A 

RETURN 

GOSUB 49 

INPUT G$ 

IF LEN G$< >4 THEN GOTO 110 

LET G=9x* (CODE G$(1)-37)+CODE G$(2)-27 
LET H=9x (CODE G$(3) -37)+CODE G$(4)-27 
IF AS(G)<>"0" OR A$(H)< >"+" THEN GOTO 
110 


LET AS(G)="+" 
LET A$(H)="0" 

GOSUB 40 

LET O=0 

LET B$5="CUWDNLVECUWDNLVE” (INT (RND+*8) 
+1 TO) 

FOR X=1 TO 8 


LET N=CODE B$(X)-50 

IF AS(Z+N) <>"0" THEN GOTO 330 
IF AS(Z+2*N)< >"+" THEN GOTO 330 
LET AS(Z)="+" 

LET AS(Z+N)="+" 

LET A$(Z+2*N)="T0]" 

LET Q=1 

LET Z=Z+2*N 


El zorro y las ocas / 69 


310 GOSUB 40 

320 GOTO 220 

330 NEXT X 

340 IF Q=1 THEN GOTO 110 

350 FOR X=1 TO 8 

360 LET N=CODE B%(X)-50 

370 IF AS(Z+N)<>"+" THEN GOTO 420 
380 LET A$(Z)="+" 

399 LET A$(Z+N)="10]" 

400 LETZ=Z+N 

410 GOTO 1020 

420 NEXT X 

430 PRINT AT 18,12; "MOUNT '. y 


210 LETB$="LCWNLCWN” (INT (RND*4)+1 TO  ) 
220 FOR X=1 TO 4 
350 FOR X=1 TO 4 


1] 


Parejas 


En este juego compiten su memoria y la de la computadora y 
ésta es como un elefante (“los elefantes nunca se olvidan”). 
Cuando se desarrolló este programa el autor perdió por 23 
a 3. 

Detrás de los gráficos (el dorso de las cartas) hay carac- 
teres en negativo comprendidos entre la N y la Z. Elija uno 
de los cuadrados (cartas) y se le dará la vuelta, mostrando su 
otro lado. Después elija otra carta, si son iguales se anotará 
un punto y tendrá otra oportunidad pero las dos cartas desa- 
parecerán de la pantalla. 

Si las cartas fueran distintas el turno pasará al otro juga- 
dor (la computadora) y las cartas no desaparecerán sino que 
se las dará la vuelta de nuevo mostrando el dorso. Un as- 
pecto inusual del programa es su lentitud en algunas partes, 
pasa al modo rápido (FAST) para pensar, pero en otros mo- 
mentos se ejecuta en el modo lento (SLOW). Utiliza un bucle 


fingido para ralentizarlo. 


RARSCDEFS.IOCRNLA 
1 $ YX X Y MH O E A 
EE ETE EEE RES NY Y 2 
NY NX XN E XX YX YX MN MH MSC 

ARBODEFGBHIARNisses 
YQu HRUE 3 I HAYE 3 
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Programa 11: Parejas 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


FAST 
GOTO 1000 

SLOW 

GOSUB 3000 

INPUT GS 

LET G=VAL G3(1) 

LET H=CODE G$(2)-37 
PRINT AT Gx*2,Hx2;B$(G,H) 
LET C$(G,H)=B$(G,H) 
INPUT PS 

LET P=VAL P3(1) 

LET R=CODE P$(2)-37 
PRINT AT P+2,R*2:BS(P,R) 
LET CS(P,R)=BS(P,R) 

IF BS(G,H)< >BS(P,R) THEN GOTO 240 
LET Z=Z+1 

PRINT AT 2*G,2*H;"_” 
PRINT AT 2*P,2«*R;"_” 
LET B$(G,H)="_" 

LET BS(P,R)="_" 

LET C$(G,H)="_" 

LET CS(P,R)="_" 

GOTO 40 

GOSUB 2000 

PRINT AT 2*G,2*«H; "EE" 
PRINT AT 2«P,2«R:"B8" 

IF Y+Z=26 THEN STOP 
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289 GOSUB 3000 

2909 FAST 

300 FOR L=1TO 13 

310 LET D$=AS(L) 

320 LETF=0 

339 FOR W=1TO 4' 

349 FOR X=1 TO 13 

350 IF C$(W,X)<>D$ THEN GOTO 400 

369 LETF=F+1 

370 IF F=2 THEN GOTO 580 

380 LETG=W 

399 LET H=X 

400 NEXT X 

410 NEXT W 

420 NEXT L 

450 LET G=INT (RND+4)+1 

460 LET H=INT (RNDx13)+1 

470 IF B$(G,H)="_" OR C$(G,H)< > 
'_'" THEN GOTO 450 

489 FOR W=1 TO 4 

499 FOR X=1 TO 13 

500 IF CS(W,X)=BS(G,H) THEN GOTO 580 

510 NEXT X 

520 NEXT W 

530 LET W=INT (RND=4)+1 

549 LET X=INT (RNDx13)+1 

550 IF BS(WX)="_"ORCSWX)<>"_ 
'" OR (W=G AND X=H) THEN GOTO 599 

580 SLOW 


590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
749 
750 
760 
770 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
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GOSUB 2000 

PRINT AT G+2,Hx2;B$(G,H) 

GOSUB 2000 

PRINT AT Wx2,X+*2;BS(W,X) 

GOSUB 2000 

IF BS(G,H)< >BS$(W,X) THEN GOTO 730 
LET Y=Y+1 

PRINT AT G+2,Hx2;"_" 

PRINT AT Wx2,Xx2;"_" 

LET B$(G,H)="_" 

LET C$(G,H)="_" 

LET CS(W,X)="_" 

LET BS(W,X)="_" 

GOTO 270 

PRINT AT G+2,Hx2;"E8" 

PRINT AT W+2,Xx2;"E8" 

LET C$(G,H)=B$(G,H) 

LET CS(W,X) =B$(W,X) 

GOTO 40 

WINS N O PQRSTUVWXY ZU 
DIM B$(4,13) 

FOR A=1 TO 4 

FOR B=1 TO 13 

LET C=INT (RND+4)+1 

LET D=INT (RND+13)+1 

IF B$(C,D)<>"_" THEN GOTO 1040 
LET B$(C,D)=A$(B) 

NEXT B 

NEXT A 
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1100 PRINT"__A_B_C_D_E_F_G_H_I 


e SM 
1110 FOR A=1 TO 4 
1120 PRINT 


1130 PRINT A; 
1149 FOR B=1 TO 13 
1150 PRINT "_B”. 


1160 NEXT B 

1170 PRINT “"_%A,,, 

1189 NEXT A 

1190 PRINT"_ _A_B-CD>=E-F-G-H= 
tp 


1200 DIM C$(4,13) 

1219 LETZ=0 

1220 LETY=0 

1240 * GOTO 30 

2000 FOR K=1 TO 50 

2010 NEXT K 

2020 RETURN 

3000 PRINT AT 12,0;"YOU_HAVE_":Z¡AT 12, 151 _ 
HAVE _":Y 

3010 RETURN 
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Cuatro campos 


En este juego usted manipula las O. Su misión consiste en 
saltar con sus piezas sobre las de la computadora para “co- 
mérselas”. Con excepción del movimiento de captura, se 
mueve siempre un espacio ortogonalmente. El programa se 
ejecuta en modo lento (SLOW). El tablero ocupa casi toda la 
pantalla y es muy vistoso. 


BoODo0go 
SECEE 
OOBODO 
ONMoODO 
ooO0dDDa 


YQuUR_ Han 


Programa 12: Cuatro campos 


19 GOTO 1000 
20 PRINT AT J.6; 


75 
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30 FOR A=1 TO 93 STEP 18 
49 PRINT TAB 6;D$ 
50 PRINT TAB 6;¡A$(A TO A+17) 
60 PRINT TAB 6:C5$ 
70 NEXT A 
80 RETURN 
100 GOSUB 20 
110 PRINT AT 20,11; MOUANWA 
120 INPUT G$ 
130 PRINTAT 20,11:"_________ él 
149 IF LEN G$< >4 THEN GOTO 110 
160  LET G=18x* (CODE G$(1)-37)+3x*(CODE 
G$(2)-28) +2 
170  LET H=18x* (CODE G$(3)-—37)+3*(CODE 
G$(4) -28)+2 
180 LET A$(H)=AS$(G) 
19) LET AS(G)="_" 
200 GOSUB 20 
210  FORE=1TO8 
220  LET B=E(E) 
230 IF A$(B)<>"X" THEN GOTO 320 
249 FOR X=1 TO 12 STEP 3 
250 IF AS(B+B(X)<>"X” THEN GOTO 310 
260 IF AS(B+2*B(X)<>"0"” THEN GOTO 310 
270 LETAS(B)="_" 
280 LET A$(B+2*B(X))="X" 
290  LET E(E)=B+2*B(X) 
300 GOTO 100 
310 NEXT X 


320 
400 
410 
420 
430 
44 
450 


460 
470 
480 
490) 
500 
510 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
1000 
1010 
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NEXT E 

FOR E=1 TO 8 

LET B=E(E) 

IF A$(B)< >"X" THEN GOTO 510 

FOR X=1 TO 12 STEP 3 

IF AS(B+B(X)<>"_" THEN GOTO 500 

IF AS(B+B(X+1))="0" OR AS(B+B(X+2))="0" 
OR A$(B+2*B(X)="0" THEN GOTO 500 

LET A$S(B+B(X)="X" 

LET AS(B)="_" 

LET E(E)=B+B(X) 

GOTO 100 

NEXT X 

NEXT E 

FOR E=1 TO 8 

LET B=E(E) 

IF A$(B)< >"X" THEN GOTO 700 

FOR X=1 TO 12 STEP 3 

IF AS(B+B(X)<>"_” THEN GOTO 690 

LET A$(B+B(X)="X" 

LET A$(B)="_" 

LET E(E)=B+B0X) 

GOTO 100 

NEXT X 

NEXT E 

PRINT AT 29,12; ARUBA 0 

DIM B(12) 

LET A5= DE MDOOIDADIDEAIDA NEO 
EE] AE | ME | EAN IATA 
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1020 
1030 
1040 
1050 
1060 


1070 


1080 
1090 
1100 
1110 
1120 
1130 


58 1 M4 | MAN | E | A BACA ia 
o | Hol | 10H | MOE | ECN [|HON NON n 
08 | Hon | HON | HON [0d 2 
¡3081 HH 10 JN Y 

LET B$="URXFX;-<:9R<" 

FOR B=1 TO 12 

LET B(B)=CODE B$(B)-49 

NEXT B 

LET CS= "Mo fa bal Mo o il o fo Mo il Bo ia ll 
ls Y 
LETOS=PrRAFPAAPAAPAAP" 
la] mfumim Jl 

LET ES="MJGD41,x*" 

DIM E(8) 

FOR E=1 TO 8 

LET E(E)=CODE ES(E) 

NEXT E 

GOTO 100 
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El surfista 


con sus piezas 


(las haches) de izquierda a derecha antes de que la computa- 


bh) 


dora haga lo propio con las suyas (las ces). Si se situa sobre 


El objeto del juego es practicar el “surfing 


Tiene que acertar con el número exacto para acabar en la 


una ola (columna) que contiene una pieza O piezas del opo- 
nente, entonces dicha pieza O piezas vuelven a empezar. 


del lanzamiento 
en otro caso pulse cualquier tecla entre 
l y 6 para seleccionar la pieza adecuada. Ejecútese el pro- 


grama en el modo lento (SLOW). 


és 


, 


meta (la playa). Si no puede mover despu 


del dado, pulse cero 


PISA AMES LIAAILEILI SOIL III, 
PAPAL ADILLIVI CLAP ALIO AS 


CCCCO AL CORA COCA CAACCO CACAO 


ROQOLLEC A 


Yau 


: El surfista 


Programa 13 


10 DIM A(6) 
20 DIM B(6) 


30 PRINT AT 3,110; WENN 


ARA JABCDEFGHIJK] Y 
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50 GOTO 140 
60 FORA=1TO 12 
70  PRINT AT 3+4,110/ HN Es 
NX 
80 NEXT A 
9M FORA=1T0O 6 
100 PRINT AT A+3,A(A)+10;"H” 
110 PRINT AT A+9,B(A)+10;"C" 
120 NEXT A 
130 RETURN 
149 GOSUB 60 
150 LET D=INT (RND+*6) +1 
160 PRINT AT 18,3;"YOU_ROLLED_A_“:D;"_ 
_WHICH_PIECE?”! 
170  LET Z$=INKEYS 
180 IF Z$="" THEN GOTO 170 
190 PRINTAT 18,3: 2 aid ii 
200 LETG=VAL Z$ 
210 IF G=0 THEN GOTO 320 
2204 IF A(G)+D>12 THEN GOTO 160 
230 LET A(G)=A(G)+D 
244 FORA=1TO6 
259 IF B(A)=A(G) AND A(G)< > 12 THEN LET B(A)=0 
260 NEXT A 
270 FORA=1T06 
280 IF A(A)<>12 THEN GOTO 310 
299 NEXT A 
300 PRINT AT 18,13; "MOUNT o 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
44 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
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GOSUB 60 

LET D=INT (RND+x6)+1 

PRINT AT 18,11:"1_ROLLED_A_"D 
FOR B=1 TO 6 

IF B(8)+D=12 THEN GOTO 480 
NEXT B 

FOR B=1 TO 6 

FOR A=1 TO 6 

IF B(8)+D=A(A) THEN GOTO 480 
NEXT A 

NEXT B 

FOR C=12-D TO Q STEP -1 

FOR B=1 106 

IF B(8)=C THEN GOTO 480 

NEXT B 

NEXT C 

GOTO 580 

LET B(B)=B(B)+D 

FOR A=1 TO 6 

IF B(B)=A(A) AND B(B)< >12 THEN LET A(A)=0 
NEXT A 

PRINT AT 18,11:"_2__________ 0 


GOSUB 69 

FOR A=1 TO 6 

IF B(A)<>12 THEN GOTO 590 

NEXT A 

PRINT AT 18,4; WIN 0 

PRINT AT 1811:'_2_2_2_________” 


GOTO 150 
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El alquerque 


Este juego de tablero es similar a las damas pero en un ta- 
blero de cinco por cinco y se puede mover hacia adelante, ha- 
cia atrás O hacia los lados en lugar de diagonalmente como en 
las damas. Se mueve introduciendo el número y la letra co- 
rrespondientes al cuadrado desde el cual se quiere mover y 
después el número y la letra correspondientes al lugar al que 
se quiere ir, a continuación se pulsa ENTER. 

Los saltos múltiples están permitidos. Si se captura una 
pieza de la computadora, ésta preguntará DO YOU WANT 
TO JUMP AGAIN? (¿Quiere saltar otra vez?). Si lo desea, 
introduzca “Y” y pulse ENTER. Si no puede saltar otra vez 
pulse simplemente ENTER y la computadora moverá. Sus 
piezas se representan con la letra O y las de la computadora 
con O en negativo. 


Programa 14: Alquerque. 


10 GOTO 4000 
100 FOR A=19 TO 83 STEP 16 
110 PRINT AT 1+3xA/16,8;A$(A TO A+14) 
120 NEXT A 
125 SLOW 
130 RETURN 
1000 GOSUB 100 


82 
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1010 LETOQ=0 

1015 FAST 

1020 FOR B=1 TO 12 

1030 LET C=B(B) 

1040 IF AS(C)<>'"T' THEN GOTO 1190 
1050 FOR X=1 TO 4 

1060 LET N=CODE B$(X)-40 

1070 IF AS(C+N)<>"0"” THEN GOTO 1170 
1080 IF AS(C+2*N)<>"_" THEN GOTO 1170 
1099 LET A$(C+2x*N)=A$(C) 

1100 LETAS(C)="_" 

1110  LETAS(C+N)="_" 

1120  LET B(B)=C+2*N 

1130 LETC=C+2*N 

1149 GOSUB 100 

1150 LETQ=1 

1160 GOTO 1050 

1170 NEXT X 

1180 IFQ=1 THEN GOTO 3010 

119% NEXT B 

2000 FOR B=1TO 12 

2010 LET C=B(B) 

2020 IF AS$(C)<>'"TOl” THEN GOTO 2210 
2030 FOR X=1 TO 4 

2049 LET N=CODE B$(X) -— 40 

2050 IF AS(C+N)<>"_" THEN GOTO 2200 
2060 LETYS=AS$ 

2070 LET Y$(C+N)=Y8(C) 

2080 LET YS$(C)="_" 
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2099 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
3000 
3010 
3020 


FOR A=1 TO 12 

LET D=C(A) 

IF YS(D)< >"0" THEN GOTO 2170 
FOR Z=1 TO 4 

LET M=CODE B$(Z)-40 

IF YS(D+M)< >"TO]” THEN GOTO 2160 
IF YS(D+2*M)="_" THEN GOTO 2200 
NEXT Z 

NEXT A 

LET AS=Y8 

GOTO 2300 

NEXT X 

NEXT B 

FOR B=1 TO 12 

LET C=B(B) 

IF AS(C)< >"TO]” THEN GOTO 2330 
FOR X=1 TO 4 

LET N=CODE BS(X)-40 

IF AS(C+N)<>"_" THEN GOTO 2320 
LET A$S(C+N)=A$(C) 

LET AS(C)="_" 

LET B(B)=C+N 

GOTO 3000 

NEXT x 

NEXT B 

PRINT AT 21,12; "MIU IN. w 
GOSUB 100 

PRINT AT 21,12; "YOUR_GO” 

INPUT GS 
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3030 PRINTAT21,12"_______ 1 

3040 IF LEN G$< >4 THEN GOTO 3010 

3050 LET G=16x*(CODE G$(1)-28)+3*(CODE 
G$(2)-37)+1 

3060 LET H=16x*(CODE G$(3)—28)+3*(CODE 
G$(4) -37)+1 

3070 IF G<1 OR H<1 OR G>100 OR H>100 THEN 
GOTO 3010 

3080 IF AS(G)<>"0" OR AS(H)<>"_" 
THEN GOTO 3010 

3090 LET AS(H)=A$(G) 

3100 FOR A=1 TO 12 

3110 IF C(A)=G THEN LET C(A)=H 

3120 NEXT A 

3130 LET AS(G)="_" 

3140 IF ABS (H-G) < >6 AND ABS (H-G)< >32 
THEN GOTO 1000 

3150  LET AS((H+G)2)="_" 

3160 GOSUB 100 

3170 PRINT AT 21,6;"CAN_YOU_JUMP_AGAIN?” 

3180 LET Z$=INKEYS 

3190 IF Z$="" THEN GOTO 3180 

3200 PRINT AT 21,6;" 


o ASA SS 


3210 IF Z$="Y" THEN GOTO 3010 

3220 GOTO 1010 

4000  LET AS="XXX00000000000000X DIO] 
N[HOW [HON [HON [Hol MN non E 
¡ON HON | HON | HON AM NON lO! 
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| UNE | HOJA | EloJE YA HOJE | HOJ | E 
o IMHoWIDoMxDo WD o WD OM 
Do Oo" 
4010 DIM B(12) 
4020 DIM C(12) 
4030 LET B$="4=x*1K8,OBHER"” 
4040 FOR B=1TO 12 
4050 LET B(B)=CODE B$(B) 
4060 LET C(B)=116-—B(B) 
4070 NEXT B 
4080  LET CS=""Mol fuma tall Dios fo il o ios o o ol io Ds a 
4099 LETBS-PrRAPAAPAAPAAPAN 
4100 PRINTAT29"A__B__C__D__E", 
4110 FORA=1T0O5 
4120 PRINT TAB 8;B$:TAB 6;¡A;TAB 24:A:TAB 8:C$ 
4130 NEXT A 
4140 PRINT AT 20,9/"A_ _B__C__D__E" 
4150 GOSUB 100 
4160 LET B$="SF9/” 
4170 PRINT AT 0,2;"DO_YOU_WANT_TO_GO_ 
FIRST? _Y/N” 
4180 LET Z$=INKEYS 
4190 IF Z$="" THEN GOTO 4170 
4200 PRINT AT 0,2;"HIGH_JUMP_BY_GRAHAM _ 
CHARLTON” 
4210 IF Z$="Y" THEN GOTO 3000 
4224 GOTO 1000 
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El laberinto 


Este programa fascinante dibuja un laberinto, justo frente a 
usted. Sólo hay un sendero a lo largo del laberinto y se ca- 
mina sobre la línea y no sobre los espacios como en la mayor 
parte de los juegos de laberintos. 

Comienza su caminar en el laberinto entrando por el lado 
izquierdo, donde aparece un pequeño punto y deberá atrave- 
sar el mismo hasta llegar a su lado derecho. 

La computadora sólo genera el laberinto, no lo resuelve. 
Utilice la impresora para dibujar el laberinto sobre papel, 
después resuélvalo (si puede) con un bolígrafo. Este pro- 
grama es agradable de ver y es apropiado para exhibiciones. 
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Programa 15: El laberinto 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
170 
180 
199 
200 
210 
220 


230 
240 
250 
260 
270 
280 


FAST 

DIM A$(63,43) 

FOR A=1 TO 63 

LET AS$(A,1)="'2" 

LET A$(A,2)="'2" 

LET A$(A,42)="'2" 

LET A$(A,43)="'2" 

NEXT A 

FOR A=1 TO 43 

LET A$(1,A)="2" 

LET A$(2,A)="'2"" 

LET A$(62,A)="'2"" 

LET A$(63,A)=""2"" 

NEXT A 

SLOW 

LET X=4 

LET Y=4+2x*INT (RND+18) 

PLOT X-1,Y 

PLOT X-2,Y 

LET AS$(X,Y)="'2" 

IF AS(X+2,Y)<>"_" AND A$(X-—2,Y) 
<>'"_'" AND A$(X,Y+2)< >" _' AND 
AS(X,Y—2)<>"_" THEN GOTO 400 
UNPLOT X,Y 

PLOT X,Y 

LET R=INT (RND+x4) 

LET C=X+2x*x(R=0M)-2x*(R=1) 

LET D=Y+2x(R=2)-2x*(R=3) 

IF AS$(C,D)< >" _'” THEN GOTO 230 


290 
300 
310 
320 
340 
350 
360 
370 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490) 
500 
510 
540 
5590 
560 
590 
600 
610 
640 
650 
660 
690 
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LET E=(C+X/2 

LET F=(D+Y)/2 

LET A$(C,D)=""1" 

LET AS(E,F)="1" 

PLOT EF 

LET X=C 

LET Y=D 

GOTO 220 

LET AS(X,Y)="2" 

PLOT X.Y 

IF AS(X+1,Y)=""1" THEN GOTO 500 
IF AS(X—1,Y)=""1" THEN GOTO 550 
IF AS(X,Y +1)="1" THEN GOTO 600 
IF AS(X,Y—1)=""1" THEN GOTO 650 
LET Y=4+2xINT (RND=18) 

PLOT 61.Y 

PLOT 62,Y 

STOP 

LET AS(X+1,Y)="2" 

LET X=X+2 

GOTO 220 

LET A(X-1,Y)="2" 

LET X=X-2 

GOTO 220 

LET AS(X.Y+1)="2" 

LET Y=Y+2 

GOTO 229 

LET AS(X, Y -1)="2" 

LET Y=Y-2 

GOTO 220 
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Muertos vivientes 


Es usted prisionero de una isla en la que habitan muertos vi- 
vientes (zombies) cazadores de hombres (en la pantalla los 
zombies son signos +). Su única esperanza de salvación con- 
siste en conducir a los muertos vivientes a los pantanos donde 
su aspecto es todavía más horrible. Son bastante tontos, de 
forma que no ven los pantanos hasta que ya es demasiado 
tarde. Sin embargo, sí le ven a usted y se dirigen hacia su si- 
tuación donde quiera que esté. Cuando le alcanzan, se ava- 
lanzan sobre usted y el juego termina. Espere hasta que todos 
los zombies se hayan movido antes de introducir su movi- 
miento. Para moverse utilice las teclas “5”, “6”, “7” y “8” y 
se desplazará en la dirección de las flechas que figuran en di- 
chas teclas. 


IIA CIRIO: 
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Programa 16: Muertos vivientes 


10 
20 
30 
40 
50 


60 


70 
80 
9 

100 

110 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


GOTO 1000 

LET Z$=INKEYS 

IF-Z$=" " THEN GOTO 20 

PRINT AT EF; "MW 

LET E=E+(Z$="6" AND E<20)-(Z$=""7" AND 
EST) 

LET F=F+(Z$="8" AND F<30)-(Z$="5" AND 
F> 1) 

PRINT AT EF: EY” 

FOR A=1 TO 20 

IF A(A)=0 THEN GOTO 190 

PRINT AT A(A),B(A); "MW 

IF ABS (E-A(A))>ABS (F-B(A)) THEN GOTO 
149 | 

LET B(A)=B(A)-(B(A)>PF)+(B(A)<F) 

GOTO 150 

LET A(A)=A(A)-—(A(A)>E) + (A(A)<E) 

PRINT AT A(A),B(A); 

IF VAL AS=151 THEN GOTO 210 

IF VAL AS=8 THEN LET A(A)=0 

IF A(A) THEN PRINT “+” 

NEXT A 

GOTO 20 

FOR A=149 TO 191 

PRINT AT E,F:CHR$ A 

NEXT A 

STOP 
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1000 


1010 
1020 


1030 
1040 


1050 


1060 
1070 
1080 
1090 
1100 
1110 


1120 
1130 
1149 
1150 
1160 


1170 
1180 
1190 
1200 


PRINT “ERE E E E E E 
do podio dodo deb de 

E 

FOR A=1 TO 20 

PAINT 10588 MO IO O O O O A O O O O O O 
AA A AAA 
NEXT A 

PRINT “HERNIA 
ppal od Ed [dh Eee 
pd Jl 

LET A$="PEEK (PEEK 16398 +256*PEEK 
16399)" 

DIM A(20) 

DIM B(20) 

LET E=11 

LET F=16 

FOR A=1 TO 30 

PRINT AT INT (RND+16)+2, 

INT (RND*27)+2:"E" 

NEXT A 

FOR A=1 TO 20 

LET A(A)=11+INT (RND+*9)*SGN(RND —.5) 
LET B(A)=16+INT (RND+14) *SGN (RND —.5) 
IF A(A)>7 AND A(A)< 15 AND B(A)> 11 AND' 
B(A)<20 THEN GOTO 1140 

PRINT AT A(A) B(A);"+" 

NEXTA 

PRINT AT EF: EY 

GOTO 20 


y) 


Poker de dados 


En esta versión del Poker de dados siempre empieza jugando 
su computadora Timex Sinclair. Las líneas comprendidas en- 
tre la 1000 y la 1070 inicializan las variables y los vectores, en 
la línea 1000 se otorga a la cadena A$ el valor “9TJOKA”. 
Las líneas comprendidas entre la 20 y la 40 producen un lan- 
zamiento al azar. 

El turno de la computadora se controla desde la línea 50 a 
la 150 junto con la subrutina comprendida entre la 500 y la 
580, donde la computadora decide si desea lanzar algunos 
dados de nuevo. Puede añadir un bucle de retardo para dar la 
impresión de que la computadora se toma su tiempo para 
pensar. 

Las líneas comprendidas entre la 230 y 310 son para el 
oponente. Si desea lanzar los dados dos, tres y cuatro de 
nuevo, introduzca “234”. Introduzca “0” si no desea lanzar de 
nuevo. 

Tal vez desee añadir una rutina que le indique quién ha 
ganado. Sería en realidad hacer el programa bastante más 
largo y no merece la pena. ] 

Después de cada juego, la computadora se toma un breve 
descanso antes de empezar un nuevo juego. 


TS1000 PLAYER 
Sua FT 
TT TS ER 
uuu y 
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Programa 17: Poker de dados 


10 GOTO 1000 
20 LET A(A)=INT (RND+*6)+1 
30 LET B$(2*A)=AS(A(A)) 
40 RETURN 
59 FOR A=1 TO 5 
60 GOSUB 20 
70 LET B(A(A))=B(A(A) +1 
89 NEXT A 
90 PRINT TAB 10:B$ 
100 PRINT 
110 FORG=1T02 
120 GOSUB 500 
130 PRINT TAB 10:B$ 
149 PRINT 
150 NEXT G 
160 PRINT TAB 12:"PLAYER” 
170 PRINT 
189 FORC=1T0O5 
199 LET C$(2*C)=A$ (INT (RND+*6)+1) 
200 NEXT C 
210 PRINT TAB 10;C$ 
220 PRINT 
239 FOR G=1TO 2 
240 INPUT OD 
250 IF D$="0" THEN GOTO 300 
269 FOR C=1 TO LEN D$ 
270 LET C$(2xVAL D$(C))=AS(INT (RNDx*6)+1) 


280 
290 
300 
310 
320 
330 
340 
350 
500 
510 
520 
530 
535 
540 
550 
560 
570 
580 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 


Poker de dados / 95 


NEXT C 

PRINT TAB 10;C$ 

PRINT 

NEXT G 

FOR A=1 TO 200 

NEXT A 

CLS 

RUN 

DIM R(6) 

FOR B=1 TO 6 

IF B(B)<2 THEN LET R(B)=1 
NEXT B 

DIM B(6) 

FOR A=1 TO 5 

IF R(A(A))=1 THEN GOSUB 20 
LET B(A(A) =B(A(A)) +1 
NEXT A 

RETURN 

LET A$5="EXMIeIN 

DIM B$(10) 

DIM A(5) 

DIM B(6) 

DIM C$(10) 
PRINT TAB 13;"TS1000" 
PRINT 

GOTO 50 
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Antimind 


Este es un programa para jugar al MASTERMIND, pero en 
lugar de que sea usted quien adivine una combinación elegida 
por la computadora, es ésta quien adivinará la combinación 
elegida por usted. 

Su código de cuatro dígitos debe estar formado por nú- 
meros comprendidos entre 1 y 6. Una vez que la computa- 
dora haya escrito una combinación, introduzca su puntuación 
en forma de cadena (por ejemplo, “21” o “03”), siendo el pri- 
mer dígito el número de “muertos” (dígito y lugar correctos) 
y el segundo el número de “heridos” (dígito correcto pero en 
lugar erróneo). 

El programa es bastante lento. Puede tardar hasta 4 mi- 
nutos en tomar una decisión (aunque esto no es lo más co- 
mún), la mayor parte de las veces tardará alrededor de 1 mi- 
nuto. De vez en cuando puede responder en segundos. La 
línea 350 es justamente la que controla la respuesta de la 
computadora que más le gustará ver. El programa debe eje- 
cutarse siempre en el modo rápido (FAST). 

El núcleo del programa está entre las líneas 240 y 260, 
que permiten a la computadora trabajar con los códigos co- 
rrespondientes a dígitos repetidos, también son importantes 
las líneas comprendidas entre la 370 y 400 que aceleran el 
programa permitiendo la salida de los bucles. Si pretende en- 
gañar, la línea 450 se lo dirá. Los bucles cuyas variables de 
control son Z, Y, W y X corresponden uno a cada dígito del 
código. Puede cambiar el programa para tener un código con 
dígitos comprendidos entre uno y nueve. Cambie para ello las 
líneas 30, 70, 80, 90 y 100. Sin embargo, de este modo el pro- 
grama será demasiado lento. 
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SISIA UHITE 
0 a a 
2223 1 a 
2 a 1 
¿2d 3 a 
4 23 4 5 2 1 
24264 2 2 
52d ad E a 
Il GUESSED YOUR CODE IN 7 TRIES 


Programa 18: Antimind 


10 PRINT TAB 8: "ENT _ WHITE” 

20 DIM A(10,5) 

30 LET Z$="123456123456" (INT (RND*6)+1 TO ) 
40 LETS=1 

50 LETG=1 

60 LETO=1 

70. FORZ=STO6 

80 FORY=STO 6 

9% FOR X=STO 6 

100 FOR W=STO 6 

110  LET A(G,1) 
120  LET A(G 2) 
130 LET A(G,3) 
149 LET A(G 4) 
150 IF Q=1 THEN GOTO 299 
169 FOR T=1 TO G-1 

170 LETE=4 

189 LETK=A(T,1) 

19) LETL=A(T,2) 

200 LETM=A(T 3) 

210 LETN=A(T 4) 


Z 
=Y 
=X 
=W 
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229 FORP=1T0 4 

230 LET R=A(G)P) 

240  LET E=E-(R<>K AND R< >L AND R< >M 
AND R< >N) 

250 NEXT P 

2604 LET E=E+9x((Z=K)+(Y=L)+(X=M)+(W=N)) 

270 IF E<>A(T,5) THEN GOTO 410 

280 NEXT T 

2909 PRINT AT G,0;Z8(2);"_":Z5(1);"_":Z8(X) 
1 _1Z5(W); 

300 INPUT A$ 

310 PRINT"__"¡AS(1)"___ _"¡AS(2) 

320 LET A(G,5)=VAL AS 

339 LETQ=0 

349 LETG=G+1 

359 IF G=11 THEN PRINT "| GIVE UP";D 

369 IF VAL A$=40 THEN PRINT ,|_GUESSED _ 
YOUR_CODE_IN_"¡G-1;"_TRIES”;D 

370 IF VAL A$=0 THEN LET S=S+1 

389 IF VAL A$<10 THEN GOTO 449 

390 IF VAL A$<20 THEN GOTO 430 

400 IF VAL A$<30 THEN GOTO 420 

410 NEXT W 

420 NEXT X 

430 NEXT Y 

440 NEXT Z 

4509 PRINT ,”I_THINK_YOU_CHEATED”:D 


En esta versión de este supuestamente antiguo juego oriental, 
tiene que coger un número de objetos de entre aquellos que 
aparecen en la pantalla, intentando ser el jugador que coja el 
último objeto, para ser así el ganador. Hay un número 
máximo de objetos que se pueden tomar, en este programa el 
máximo puede estar comprendido entre tres y cinco. La com- 
putadora fija el máximo en cada juego. 

El algoritmo utilizado es muy simple. Se observará en la 
línea 180 que si la computadora comprueba que va a perder, 
envía el control a la línea 240, donde se resta un número 
aleatorio de objetos. Posiblemente desee añadir un par de lí- 
neas para que la computadora cometa deliveradamente algún 
error y tener así alguna posibilidad de ganar. Durante su 
turno pulse simplemente la tecla correspondiente al número 
de objetos que desea retirar. 


= E E = 
á da pS es 
+ 
E E E 4] E E 
E $ 
a El 
¡TERE ARE 23 LEFT, THE MAXIHUM 


R 
vou cAN TRKRE 13 = 
HQ MANY KILL Yoli TAREA 
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Programa 19: Nim 


10 
20 
30 
40 
50 
60 
70 


80 
90 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


LET A=INT (RND+12)+20 
LET B=INT (RND+*3)+3 


LET D=B+1 
CLS 

IF A=0 THEN PRINT AT 10,13; "INE .O 
GOSUB 260 | 


PRINT AT 10,0; "THERE_ARE_'A;"_LEFT, 
THE_MAXIMUM” 

PRINT AT 12,6; "YOU_CAN_TAKE_IS_"¡B 
PRINT AT 14,4; "HOW_MANY _WILL_YOU_ 
TAKE?" 

IF INKEYS=""" THEN GOTO 100 

LET C=VAL INKEYS 

LET A=A-C 

LET N=A 

CLS 

IF A=0) THEN PRINT AT 10,12; MON NON :O 
GOSUB 260 

LETC=0 

IF INT (A/D)*FD=A THEN GOTO 240 

LET A=A—(A—INT (A/D)*D) 

PRINT AT 10,12;"1_TOOK_"¡N—A 

FOR E=1 TO 50 

NEXT E 

GOTO 40 

LET A=A—INT (RND+B)- 1 

GOTO 200 


260 
270 
280 
290 


FOR E=1 TOA 


PRINT 3 
NEXT E 
RETURN 


 — — — —— 
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20 


Cien 


En este juego usted y la computadora se turnan para lanzar 
un dado tantas veces como quieran, sumando el resultado a la 
puntuación obtenida hasta el momento. 

Sin embargo, si obtiene un uno pierde los puntos conse- 
guidos en ese turno. Puede parar cuando lo desee, asegurán- 
dose de este modo los puntos obtenidos en ese turno y pa- 
sando el dado a la computadora. Gana el primero que llegue 
a los 100 puntos. 

El algoritmo de decisión de la computadora está contenido 
en la línea 320. La computadora continúa lanzando si lleva 
más de 30 puntos de desventaja, también continúa si en ese 
turno lleva menos de 13 puntos o menos de dos tiradas, así 
como si el oponente tiene más de 86 puntos. Se parará si ha 
conseguido más de 100 puntos. Pruebe varias estrategias de 
este tipo para examinar los resultados que obtiene la compu- 
tadora. Para lanzar introduzca “Y” o “N” como respuesta a la 
pregunta de la línea 90. 


11 0 
11 0 
23 15 
33 29 
46 44 
59 58 


102 
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Programa 20: Cien 


10 
20 
30 
40 
50 
60 
70 
80 
90 


100 
110 
129 


130 
149 
150 
160 
170 
180 
19 
200 
210 
220 
230 


240 


LET A=0 

LET B=0 

LET E=0 

PRINT AT 07; MEVA TAB 20; AO) 
LETC=0 

LET D=0 

LET F=0 

LET E=E+1 

PRINT AT 21,4;"PRESS_Y_TO_ROLL_N_TO_ 
STOP” 

LET Z$=INKEYS 

IF Z5$="" THEN GOTO 100 

PRINTIATIO A il 
IF Z$="N" THEN GOTO 210 
PRINTATE9;"__" 

LET G=INT (RND+6)+1 

IF G=1 THEN GOTO 200 

LETD=D+G 

PRINT AT E 9:D 

GOTO 99 

LET D=0 

LET B=B+D 

PRINT AT E 9;B 

IF 8>=100 THEN PRINT AT E+1,7; 

4 YOU_ WONUKe] 

PRINT AT E/23;"__” 
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250 
260 
270 
280 
290 
300 
310 
320 


330 
340 
350 
360 
370 
380 


LET H=INT (RND+*6)+1 
LET F=F+1 

IF H=1 THEN GOTO 340 

LET C=C+H 

PRINT AT E,23:C 

FOR J=1 TO 20. 

NEXT J 

IF (B-A—C<30 AND C>13 AND F>2 AND 
B<86) OR A+C> =100 THEN GOTO 350 
GOTO 249 

LETC=0 

LET A=A+C 

PRINT AT E,23;A 

IF A>=100 THEN PRINT AT E+1,22; "IWS :Q 
GOTO 50 


21 


Tic-Tac-Toe 


Este es un programa que juega al Tic-Tac-Toe de una forma 
muy elaborada y difícil de superar. Puede elegir entre mover 
primero o segundo. Sus fichas son las O y las de las computa- 
dora las X. Espere a que cambie el tablero antes de introdu- 
cir su movimiento, para ello introduzca un número compren- 
dido entre 1 y 9 que debe corresponder a la casilla a la que 
quiere mover. 

Es de notar el uso que hace este programa de la posibili- 
dad del TS1000 de dividir cadenas (líneas desde 20 a 40). Eje- 
cute el programa en el modo lento (SLOW). El programa no 
dice quién ha ganado, por tanto, debe jugarse hasta el final. 


Programa 21: Tic-Tac-Toe 


10 GOTO 1000 

20  PRINT AT 3,11;A5(1 TO 11) 

30 PRINT AT 7,11:A$(13 TO 23) 

49 PRINT AT 11,11:A$(25 TO 34) 

50 RETURN 

60 GOSUB 20 

70 IF D=9 THEN GOTO 1000 

809 IF D=3 AND (A(1)=1 AND A(9)=1 OR A(3)=1 
AND A(7)=1) THEN LET B$=C$ 


105 
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9) LETD=D+1 
95 FORE=-2TO 2 STEP 4 

100 FORA=1TO 3 

110 IF A(A*3-2)+A(A*3—1)+A(Ax3)=E THEN GOTO 
190 

120 IF A(A)+A(A+3)+A(A+6)=E THEN GOTO 210 

130 NEXT A 

140 IF A(1)+A(5)+A(9)=E THEN GOTO 230 

150 IF A(8)+A(5)+A(7)=E THEN GOTO 250 

155 NEXT E 

160 FORC=1TO9 

165 LET B=VAL B$(C) 

170 IF A(B)=0 THEN GOTO 260 

180 NEXTC 

199 LET B=(A*3-—2)x(NOT A(A*3—2))+(Ax+3—1) x 
(NOT A(A*3—1))+(A+*3)*(NOT A(Ax3)) 

200 GOTO 260 

210 LET B=Ax (NOT A(A))+(A+3) * (NOT 
A(A+3))+(A+6)*(NOT A(A +6) 

229 GOTO 260 

230 LET B=(NOT A(1))+5x*(NOT A(5))+9*(NOT A(9)) 

249 GOTO 260 

250 LET B=3x*(NOT A(3)+5*(NOT A(5))+7*(NOT A(7)) 

260 LET A$(B*4-2)="X" 

270 LETA(B)=-1 

289 GOSUB 20 

299 IF D=9 THEN GOTO 1000 

300 LET Z$=INKEYS 

310 IF Z$="" THEN GOTO 300 


320 
330 
340 
350 
1000 


1010 
1020 
1030 
1040 
1050 


1060 
1070 
1080 


10999 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
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LET AS(VAL Z$x4-—2)="0" 

LET A(VAL Z$)=1 

LET D=D+1 

GOTO 60 

LETAS="_1M_2> M3 M + Ms M 
_-6_ M7 MM se M_ o 

LET B$="573914826" 

IF RND<.2 THEN LET B$="159378246" 

LET C$="431978625" 

DIM A(9) 

PRINT AT 16,2;"DO_YOU_WANT_TO_GO_ 
FIRST? _(Y/N)" 

LET Y=INKEYS 

IF. Y$="" THEN GOTO 1060 

PRINT AT 16,2:2__________.__ 
FOR A=1 TO 6 

PRINT AT A+2,11:"___MW___ MW 

NEXT A 

PRINT AT 5,11;""M09 080 080 000 000 100 00 0 0 
PRINT AT 9,11:""M00 000 000 000 0 0 0 0 A 
LET D=0 

IF Y$="Y" THEN GOTO 280 

GOTO 60 


Otra versión 


Se presenta a continuación otra versión del Tic-Tac-Toe con 
un programa completamente distinto. Es interesante compa- 
rar los dos programas. 
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Al contrario que sucede con la mayor parte de las ver- 
siones de éste juego, en ésta es posible ganar a la computa- 
dora. Algunos movimientos se realizan instantáneamente, 
otros, en cambio, tardan alrededor de diez segundos. La es- 
trategia consiste en intentar localizar un movimiento ganador, 
si no existe, se comprueba si el oponente tiene esa posibilidad 
en el siguiente turno y si se encuentra se bloquea. Si el opo- 
nente tampoco puede ganar en el siguiente movimiento, la 
computadora moverá al azar. El programa reconoce las situa- 
ciones en las que alguien ha ganado o se han producido ta- 
blas. 

Todas las respuestas se detectan utilizando la función IN- 
KEYS$, por tanto, no es preciso pulsar ENTER. Las res- 
puestas deben contener un único carácter. Se le preguntará al 
principio si quiere mover primero, de ser así, pulse “Y”; en 
caso contrario, pulse “N”. 

Esta figura muestra la disposición de los números corres- 
pondientes a las casillas del tablero: 


3 
41516 
7|8|9 


A continuación del listado sigue una explicación del pro- 
grama. 


Programa 21A: Tic-Tac-Toe 


2 RAND 
5 LETX=0 
10 DIM B$(9) 
12 PRINT AT 0,0;"DO_YOU_WANT_FIRST_GO 
(Y_OR_N)?" 
14 LET AS=INKEYS 
16 IF AS<>"Y" AND A$<>"N” THEN GOTO 14 
18 CLS 


20 


25 
30 
40 
50 
60 
70 
80 


85 

9 
100 
110 
111 
112 
114 
116 
129 
139 


140 
150 
160 
170 
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PRINT AT 5,113, 152883".TAB 13: "58% 
SEE”. TAB 13/4536": TAB 13;" 
HEEE" TAB 19 7H8 Ho" 

IF AS="N" THEN GOTO 100 

PRINT AT 12,12;"YOUR_GO” 

LET AS=INKEYS 

IF AS$<"1" OR A$>"9" THEN GOTO 40 

IF B$ (CODE A$-28)>"_" THEN GOTO 49 
LET B$(CODE A$-28)="0" 

PRINT AT CODE "MIUNDPIPPA ts ts: (CODE 
A$—28), CODE "'$?)$?)$?)" (CODE A$—28);B$ 
(CODE A$-28) 

LET A$="000" 

GOTO 300 

REM **TS1000 MOVE” 

PRINT AT 12,12;"_MY_GO_"” 


IF BS(5)="_" THEN LET F=5 
IF B$(5)="_" THEN GOTO 249 
FOR B=1 TO 2 


LET C$="X0"(B)+"XO"(B) 

FOR A=1 TO 70 STEP 3 

LET A$="15919559135757337512313223145656 
446578979898714747117425828558236939669 
3"(A TO A+2) 

LET D=CODE A$-28 

LET E=CODE A$(2)-28 

LET F=CODE A$(3)-28 

IF B$(D)+B$(E)=C$ AND BS$(F)="_” THEN 
GOTO 240 
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180 
190 
193 
195 
197 
198 
200 
240 
250 


260 
300 


304 
307 
310 


320 


NEXT A 
NEXT B 

LET A$="" 

FOR A=1 TO 9 

IF B$(A)="_" THEN LET AS=A$+CHR$ A 

NEXT A 

LET F=CODE AS(INT (RND+LEN A$)+1) 

LET BS(F)="X" 

PRINT AT CODE "MIDI MP ba bsos 
(F),CODE "'5?)57)8?)(F);BS(F) 

LET A$="XXX" 

IFBS$( TO 3)=A$ OR B$(4 TO 6)=A$ OR 

B$(7 TO )=A$ OR B$(1)+B3(1)+B3(4) +B$(7)=A$ 
OR B3(2)+B5(5) +B$(8)=A$ OR B$(3) +B$(6) + B$(9) 
=A$ OR B$(1)+B5(5)+B$ (9) =A$ OR B$(3) 

+B$(5) +B$(7)=A$ THEN GOTO 320 

LET X=X+1 

IF X=9 THEN GOTO 350 

GOTO (30 AND A$="XXX")+(100 AND 
A$=""000”” 

IF AS="000" THEN PRINT AT 12,12;"YOU_ 
WIN” 
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330 IF AS="XXX"” THEN PRINT AT 12,12;"_1_WIN_” 
349 STOP 
350 PRINT AT 12,12;"A_DRAW” 


Notas al programa 


Línea 2: Ejecuta RAND para inicializar la serie de números 
aleatorios que se genera. 

Línea 5: Inicializa el valor de X que es la variable que 
cuenta el número de jugadas realizadas y que es útil para de- 
terminar cuándo se han producido tablas. 

Línea 10: Inicializa la variable B$ con 9 espacios. B$ es la 
cadena que contiene la situación del tablero. Los elementos 
de la cadena se corresponden con los caracteres que aparecen 
en el tablero de la pantalla. Por ejemplo, B$(5) corresponde 
a la casilla central del tablero. 

Línea 12: Pregunta al jugador quién inicia el juego. 

Línea 14: Escudriña el teclado buscando la respuesta del 
oponente. 

Línea 16: Continúa escudriñando el tablero hasta que no 
se pulse “Y” o “N”. 

Línea 18: Borra la pregunta de la pantalla. 

Línea 20: Imprime el estado inicial del tablero junto con 
los números que indican al jugador las teclas a pulsar para ac- 
ceder a cada posición del tablero. 

Línea 25: Si el oponente decide no jugar primero (pul- 
sando N), se manda el control a la línea 100 para que mueva 
la computadora. 

Línea 30: Imprime un mensaje indicando que es el turno 
del oponente. : 

Línea 40: Escudriña el teclado buscando el movimiento 
del oponente para almacenarlo en AS$. 

Línea 50: Si A$ no contiene un movimiento válido, es de- 
cir si la tecla pulsada no corresponde a un número compren- 
dido entre uno y nueve, continúa escudriñando hasta que se 
introduce un movimiento válido. : 

Línea 60: Si la casilla elegida por el oponente ya contiene 
una O o una X se devuelve el control a la línea 40. 
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Línea 70: Coloca una O en la casilla elegida por el opo- 
nente (situa una O en el elemento correspondiente de la ca- 
dena B$). 

Línea 80: Imprime el movimiento. Las coordenadas X e Y 
para la instrucción PRINT AT se obtienen aplicando la fun- 
ción CODE a unas cadenas apropiadas. 

Observese cómo se usa (CODE A$-28) para decodificar 
las cadenas en números en lugar de usar VAL AS, la razón es 
que CODE A$-28 es aproximadamente un 50 % más rápida 
que VAL, en este caso no tiene demasiada importancia pero 
cuando se está dentro de un bucle como más tarde se verá es 
un ahorro muy significativo de tiempo. 


Línea 85: Almacena tres O en A$ para comprobar en una 
rutina si alguien ha ganado. A$ actúa también como una ban- 
dera para indicar a la rutina dónde volver si el juego no ha- 
terminado. 

Línea 90: Envía el control a la línea 300 para comprobar 
si hay un vencedor o se han producido tablas. ¿Por qué no se 
utiliza GOSUB? Puede que no se retorne si el juego ha con- 
cluido porque alguien ha ganado o se han producido tablas, 
por tanto la dirección de retorno se quedaría en la pila y ésta 
llegaría a llenarse después de algunos juegos. Si se trabaja 
con una máquina con una capacidad de 2K pronto se acabaría 
la memoria destinada a la pila y tendría que ejecutar varias 
veces seguidas la instrucción RETURN con objeto de descar- 
gar la pila. Por este motivo se utiliza GOJO. 

Línea 100: Sentencia REM para identificar la parte del 
programa donde se genera el movimiento de la computadora. 
Si tiene intención de modificar el programa con objeto de 
ahorrar memoria, ésta línea debería ser la primera en ser bo- 
rrada. 


Línea 110: Imprime un mensaje indicando que es el turno 
de la computadora. 

Líneas 111 y 112: Si el centro del tablero esta disponible, 
ese será el movimiento de la computadora. F es una bandera 
que indica qué movimiento ha elegido hacer la computadora. 
Se utiliza más tarde en la rutina que imprime el movimiento 
de la computadora. 
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Líneas desde la 114 a la 190: Se trata de una rutina que 
ejecuta un movimiento ganador de la computadora o bloquea 
un movimiento ganador del oponente, por este orden y si 
existen. Mira el tablero y si localiza dos caracteres idénticos 
en una línea actúa en consecuencia. Esta busqueda en el ta- 
blero para encontrar dos piezas iguales en una línea se realiza 
en dos fases, primero se buscan X (posible movimiento gana- 
dor de la computadora) y después se buscan O (posible movi- 
miento ganador del oponente). En esta búsqueda la variable 
C$ indica el carácter que se está buscando. A$ es una cadena 
de tres caracteres, los dos primeros indican las dos casillas 
que deben investigarse para buscar caracteres iguales y si el 
resultado es positivo el tercer carácter indica donde debe mo- 
ver la computadora. 

Líneas 140, 150 y 160: Convierte los caracteres de A$ en 
números. Apréciese que se utiliza CODE A$-28 en lugar de 
VAL A$ con lo que se gana velocidad. Este procedimiento 
sólo puede utilizarse con números. 

Líneas desde la 193 a la 240: Si no es posible un movi- 
miento ganador ni para la computadora ni para el oponente, 
la computadora mueve al azar eligiendo una de las casillas no 
ocupadas. 

Línea 250: Imprime el movimiento. 

Línea 260: Es igual que la línea 85 pero inicializa A$ para 
las X. 

Línea 300: Comprueba si alguien ha ganado y de ser así 
envía el control a la rutina del final del juego. 

Línea 304: Incrementa el contador de movimientos. Si 
este contador alcanza el valor 9 se han producido tablas o al- 
guien ha ganado. 

Línea 310: Si el juego no ha concluido se devuelve el con- 
trol a donde se realiza el movimiento del oponente o de la 
computadora dependiendo de que el valor de A$ sea “OOO” 
o “XXX”. 

Líneas desde la 320 a la 350: Imprime el ganador, o si no 
lo hay anuncia las tablas. 
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Solitario 


El objetivo de este juego es que al final sólo quede una pieza 
en el tablero, preferiblemente en el centro. Una pieza se eli- 
mina del tablero si se salta por encima de ella con otra pieza. 
Para mover una pieza introduzca una cadena de tres carac- 
teres, primer y segundo caracteres corresponderán a las coor- 
denadas de la pieza que se pretende mover y el tercero indica 
el tipo de movimiento que desea de acuerdo con la siguiente 
lista: 


5-Para mover hacia la izquierda 
6-Para mover hacia abajo 
7-Para mover hacia arriba 
8-Para mover hacia la derecha. 


Observará que las flechas correspondientes a las teclas en 
las que figuran estos números le serviran de recordatorio. 


JNE Sal ITRIRE 
SRA RRRRARARAA 
GHAXARARAR RARA 
HAIR HARI 
A PESS LEFYF 


A UE 


Solitario / 115 


= A A 


ARIES 
a E 


E 

dE 

4 Mer PER 
la A 


A 


Programa 22: Solitario 


5 
19 


20 
35 


40) 
50 


55 


REM "SOLITAIRE” 
REM PRA» 
a Py 
REM MC) _MARK_R_HARRISON _ | 

AREA Ml lo o ll o! ll a! ll al al 
es mua mee 
REM 
PRINT AT 1,7;"SOLITAIRE¡AT 2,7;"---=--- 


PRINT AT 4,6;"THE_OBJECT_OF_ _THE_ 
GAME_IS_ _TO_BE_LEFT_WITH_ONLY_ 
ONE_PEG_ _— _ _AND_PREFERABLY_WITH _ 
IT_ZIN_ZTHE_ - _CENTER_OF_THE_BOARD._ 
_A_PEG_IS_ _REMOVED_BY_JUMPING _ 
OVER_IT_WITH_ANOTHER_PEG._ _TO_ 
MOVE_A_PEG,_ _ _ _ENTER_(AS_A_3_ 
CHARACTER _STRING)_ITS_CO-ORDINATES _ 
FOLCLOWED.-BYS=: o 5_TO_MOVE_ 


MH. 
, 
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60 


90 
95 
100 
105 


110 


115 
125 
130 
135 


140 
145 
150 
155 
160 
165 
170 


175 


PERS TS: == is is il 6_ 
TOL-MOVE.PEG DOWN. 25 3 ts 


RIGHT” 
PRINT AT 17,1;"ALSO, _ENTER”; AT 19,1; 
mins! TO_RETURN_TO_COMMAND _ 


MODE”,"_""R""_TO_RE-RUN_PROGRAM"” 
PAUSE 40000 

DIM M$(3) 

CLS 


PRINT AT 5,20; "SOLITAIRE”;:AT 6,20;"" 10 Un pu pu 
a A AT 9 20: "PEGS LEFT" 

LET P=256*PEEK 16397 +PEEK 

16396 

LET N=124 

FOR |=1 TO 5 

FOR J=1 TO 5 

PRINT AT 1J:"8%'"AT 1+10,3/ "BE "¡AT 1J+10: 
"EAT 1+10,1+410/ "887 


NEXT J 

NEXT | 

FOR |=1 TO 15 

FOR J=6 TO 10 

PRINT AT 1,J;"x"¡AT J,1;x" 
NEXT J 


PRINT AT 0,!;CHR$S (37+!);AT 1,0;CHR$ (37+!);AT 
16,1;CHR$ (37+!);¡AT 1,16;¡CHR$ (37+!);AT 8,8; _” 
NEXT | 
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180 INPUT M$ 

185 IF M$(1)="R" THEN GOTO 100 

199 IF M$(1)="S" THEN STOP 

195 LET S=P+33x*CODE M$(1)+CODE M$(2)-1257 

200 LET A=CODE M8$(3) 

205 LET F=S+(66 AND A=34)+(2 AND A=36)-(66 
AND A=35)-(2 AND A=33) 

210 IF PEEK S< >23 OR PEEK ((S+F)/2)< >23 OR 
PEEK F< >0 THEN GOTO 180 

215 POKE S0 

220 POKE F 23 

225  POKE (S+F)/2,0 

230  LETN=N-1 

235 PRINT AT 10,20;">>_"¡N;"_<<_" 

240 IF N>=2 THEN GOTO 180 

245  PRINT AT 21,0:"PRESS_ENTER_TO_PLAY_ 
AGAIN” 

250 INPUT M$ 

255 IF M$="" THEN GOTO 1090 

260 STOP 


Nota del Traductor 


La traducción al castellano del texto que aparece al ejecutar el 
programa es la siguiente: 


Ejemplo de ejecución 


SOLITARIO 


EL OBJETO DEL JUEGO ES QUEDARSE 
CON UNA UNICA FICHA SOBRE EL 
TABLERO PREFERIBLEMENTE EN EL 
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CENTRO. SE ELIMINAN PIEZAS SALTANDO 
SOBRE ELLAS CON OTRA PIEZA. PARA 
MOVER PIEZA INTRODUZCASE (COMO UNA 
CADENA DE 3 CARACTERES) SUS 
COORDENADAS SEGUIDAS DE: 


5 PARA MOVER HACIA LA IZQUIERDA 
6 PARA MOVER HACIA ABAJO 

7 PARA MOVER HACIA ARRIBA 

8 PARA MOVER HACIA LA DERECHA 


DEL MISMO MODO INTRODUCIR 
“S” PARA VOLVER AL MODO DE ORDENES 


“R” PARA VOLVER A EJECUTAR EL 
PROGRAMA 


Segunda 
parte 


PROGRAMAS Y 
APLICACIONES DE 
UTILIDAD 


23 . 


Agenda de direcciones 


Los días del papel y el lápiz han pasado. Al menos esta es la 
impresión que da este programa, que le permite guardar los 
nombres y direcciones de sus amigos dentro del programa, 
donde pueden accederse, listarse, imprimirse O incluso guar- 
darse en cinta magnetofónica para futuras consultas. El pro- 
grama contiene un menú de opciones. 


Programa 23: Agenda 


5 
15 
20 
25 
30 
40 
45 


REM "ADDRESS_BOOK"” 
SLOW 

DIM N3(15) 

DIM A$(51,95) 

LET N=1 

CLS 

PRINT AT 5,0;"PRESS:”,,,,'""L"_TO_LIST_ 
ALL_NAMES_IN_BANK", 4401 _TO_ 
DISPLAY _ADDRESSES”'"S""_TO_SAVE_ 
ON_TAPE”,"C""_TO_RETURN_TO_ 
COMMAND_MODE”E""_TO_ENTER_ 
NAME_TO_BANK”,D_TO_ DELETE _ 
NAME _FROM_BANK”,p1_TO_PRINT_ 
ADDRESS” 
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50 

55 

60 

65 

70 

75 

80 

85 
100 
105 
110 
115 
120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
300 
305 
310 


IF INKEYS="E” THEN GOSUB 100 

IF INKEYS="D" THEN GOSUB 300 

IF INKEYS="P" THEN GOSUB 500 

IF INKEYS="A" THEN GOSUB 700 

IF INKEYS="L" THEN GOSUB 9/0 

IF INKEYS$="C"""THEN STOP 

IF INKEY$="S" THEN SAVE “"ADDRESB]" 

GOTO 45 

CLS 

PRINT AT 5,0; "ENTER:”,,,,"NAME______ de 

INPUT AS(N, TO 15) 

PRINT AS(N, TO 15), "ADDRESS_ _ _”; 

INPUT AS(N,16 TO 35 

PRINT A$(N,16 TO 35 

INPUT A$(N,36 TO 55 
( 
( 
( 


) 
), "TOWN de 
) 
PRINT AS(N,36 TO 55), "COUNTY__ _ _”; 
) 
), 
) 
), 


INPUT A$(N,56 TO 67 
PRINT A$(N,56 TO 67 
INPUT A$(N,68 TO 75 
PRINT AS(N,68 TO 75),"PHONE_____ de 
INPUT AS(N,76 TO ) 

PRINT AS(N,76 TO ) 

LET N=N+1 

IF INKEYS=""" THEN GOTO 175 

CLS 

RETURN 

CLS 

PRINT AT 5,0: "NAME_TO_BE_DELETED?” 
INPUT N$ 


"POSTCGODE" 


315 
320 
325 
330 
335 
337 
340 
345 
350 
355 
500 
505 
510 
515 
520 
525 


527 


530 
535 
540 
545 
550 
700 
705 
710 


Agenda de direcciones / 123 


FOR |=1 TO 50 

IF N$<>AS(l, TO 15) THEN GOTO 345 

FOR J=| TO 50 

LET AS(J) =A$(J+1) 

NEXT J 

LET N=N-1 

GOTO 359 

NEXT | 

CLS 

RETURN 

CLS 

PRINT AT 5,0: "NAME ENQUIRY?” 

INPUT N$ 

FOR |=1 TO 590 

IF AS(1, TO 15)< >N$ THEN GOTO 535 

PRINT ,,AS(, TO 15),,A$(1,16 TO 35),A$(1,36 TO 
55),A$(1,56 TO 67),,A$(1,68 TO 75),,A$(1,76 TO 95) 
LPRINT AS(1, TO 15),,A$(1,16 TO 35),A$(1,36 TO 
55), A$(1,56 TO 67),,A$(1,68 TO 75),,A$(1,76 TO 95) 
GOTO 549 

NEXT | 

IF INKEY$=""" THEN GOTO 530 

CLS 

RETURN 

FOR |=1 TO N-1 

CLS 

PRINT AT 7,0;A$(1, TO 15),,A$(1,16 TO 35),A$(1,36 
TO 55),A$(1,56 TO 67),,A$(1,68 TO 75),,A$(1,76 TO 
95) 
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715 
720 
725 
730 
900 
905 
910 
915 
920 
925 
930 


IF INKEY$=""" THEN GOTO 715 
NEXT | 


CLS 

RETURN 

CLS 

FOR I=1 TON . 


PRINT AT 20,0;A$(1, TO 15) 
SCROLL 

NEXT | 

CLS 

RETURN 


24 


Resistencias eléctricas 
y colores 


Este programa determina el valor de una resistencia a partir 
de su código compuesto por cuatro colores. El programa ex- 
plica todo cuando se ejecuta. 


Cuando pulse RUN, el programa le ofrecerá el siguiente 
menú: 


“S” para volver al modo de comandos 

“L” para aprender de qué se trata 

“C” para conocer los códigos de los colores 

“E” Ejemplos 

para convertir un valor al código de colores 


para convertir un código de colores a un valor 
“H” para el menú 


El programa se explica por sí mismo. 


Programa 24: Código de resistencias 


1 RERMPPPPPPrrPrrra 


lm] 
o (C) MARK HARRISON (M 
Usas O A A A (B 
o RESISTOR CODE (B 
MA fo fo! sf ol a! li fl a! ll o! ll al a! il 
2 REM 
4 SLOW 
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10 


15 


20 
25 
30 
35 
49 
45 


-- 10.88 2 38 EH 
eS A 
AR | PA 
--- 102338 38 0 
A A Pprrraa 


LET AS="BLACK_BROWN_RED___ 
ORANGEYELLOWGREEN_BLUE_ _ 
VIOLETGREY_ _WHITE_" 

DIM C$(10,6) 

FOR |=1 TO 10 

LET CS()=A$(lx6-5 TO ) 

NEXT | 

CLS 

PRINT AT 0,5;:S$;¡AT 3,0; "ENTER:¡AT 5,0;"""S"" 
_TO_RETURN_TO_COMMAND _ 

MODE,” "L""_TO_LEARN_WHAT_IT_ 

IS,” 11G 1" _FOR_COLOR_CODES,”,"E""_ 
FOR_EXAMPLES,”, 

menu TO_CONVERT_ZVALUE_TO_ 
RESISTOR_CODE,”,,/""R""_TO_CONVERT_ 
RESISTOR_CODE_TO_____ 

VALUE,” 1"M""_FOR_MENU._” 


50 
55 
60 
65 
70 
79 
80 
85 
100 
105 


110 
115 


120 


125 
130 
135 
140 
150 


Resistencias eléctricas y colores / 127 


INPUT Q$ 

IF Q$="S” THEN STOP 

IF Q$="C" THEN GOSUB 200 
IF OS="E" THEN GOSUB 300 
IF Q$="V" THEN GOSUB 500 
IF Q$="R” THEN GOSUB 600 
IF QO$S="L" THEN GOSUB 1002 
GOTO 40 

CLS 


PRINT AT 0,5;S5;¡AT 2,5;""THE_VALUE_ OF _ 
RESISTORS_ARE_MARKED_BY_FOUR_ 
COLORED_BANDS_ _— _WHICH_INDICATE _ 
THEIR _ RESISTANCE _VALUE_AND_THEIR _ 
TOLERANCE.” 

PRINT AT 6,0;R$ 

PRINT AT 12/0;"_ __ - _THE_FIRST_BAND_ 
INDICATES_THE_FIRST_FIGURE_OF_THE_ 
VALUE, _ THE_SECOND_BAND_INDICATES _ 
THE_SECOND_FIGURE_OF_THE_VALUE, — 
AND_THE_THIRD_BAND_INDICATES_ HOW _ 
MANY_ZEROS_THE_VALUE_ CONTAINS.” 
PRINT AT 19, 5;"THE_FOURTH_BAND_ 
INDICATES_ _THE_TOLERANCE, _1.E._HOW_ 
ACCURATEIT_1S.” 

INPUT Q$ 

GOSUB 200 

IF QOS="M"' THEN GOTO 150 

GOSUB 3002 

GOTO 40 
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200 
205 
210 
215 
220 
225 


230 
235 
240 


250 
255 


260 


265 


CLS 

PRINT S$:AT 1,18;"COLOR_VALUE” 

FOR |=1 TO 10 

PRINT AT 1+2x1,18:C8();TAB 27;1—1 

NEXT | 

PRINT AT 5,0;"_._ _THE_FIGURE”,"THAT_ 


EAGHA. OF" “TRE. FIRST. THREE”. 
"COLORED_BANDS”,,"REPRESENTS _ 
IS”, ,"GIVEN _BY__THIS”,, TABLE.” 
PRINT AT 15,3;"THE_UNIT_OF”,, 
"RESISTANCE _15”,,"OHMS.” 


INPUT O$ 
IF QS$="M"” THEN GOTO 270 
CLS 


PRINT S5;¡AT 4,4;"THE_TOLERANCE_OF_THE_ 
A RESISTOR_IS_GIVEN_BY_ 
A FOLLOWING _COLOR_ 


FOURTH_BAND:” 
PRINT AT 10,0;""COLOR_ _TOL. 


3 AMNVMER 10 

PRINT AT 17,3;"THE_ TOLERANCE_BAND_IS_ 
A OFTEN_ABSENT_FROM_THE_ 
EE PA RESISTOR.- _IN_THIS_ 
CASE Srs ii ASSUME_A_20_ 


TOLERANCE.” 


270 
275 
300 
305 


310 
315 


320 
325 


330 


335 
340 
345 


350 
355 
360 


365 


370 


Resistencias eléctricas y colores / 129 


INPUT Q$ 

RETURN 

CLS 

PRINT AT 0,5;S5;AT 

SO CEXAMPLES A A AS ú 

PRINT AT 5,0;R$ 

PRINT AT 13/0;"BAND_1_ _BAND__2_ _ 
BAND_3_ _BAND_4"” 


INPUT Q$ 

PRINT AT 15,/0;"GREEN_ _ _BLACK_ _ _ 
BLACK_ _ _GOLD” 

PRINT AT 17,2;"50_X_1_=_50_ 


OHMS.'”AT 18,2;"5_ PERCENT _ 
TOLERANCE.”AT 20,0;""PRESS_ _ 
ENTER". "“ORENTER.""M"": FOR. 
MENU.” 

INPUT Q$ 

IF O$S="M” THEN GOTO 4202 

PRINT AT 15,/0;"BLUE_ _ _ _GREEN_ __ 
YELLOW_ _RED_ __” 

PRINT AT 17,2;"65_X_10000_ =_650,000 _ 
OHMS.”¡AT 18,2;"2_PERCENT_TOLERANCE.” 
INPUT OS 

IF Q$="M” THEN GOTO 420 

PRINT AT 15,0; "GREY_ _ _ _VIOLET_ _ 
GREEN_ _ _SILVER” 

PRINT AT 17,2;''87_X_100000_ =8,700,000_ 
OHMS._ “AT 18,2;"10_ PERCENT _ 
TOLERANCE._” 
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375 
380 
385 


390 


395 
400 
405 


410 


415 
420 
500 
505 


510 


515 
520 
525 


530 
535 


540 


INPUT QS 

IF Q$="M” THEN GOTO 420 

PRINT AT 15,0; "BLACK_ _ _BROWN__ _ 
BLACK_ _ _BROWN_” 

PRINT AT 17,2:01_X_1_=_1_0HM.____ 
Sid "AT 18,2:1_PERCENT_ 
TOLERANCE.____" 

INPUT OS 


IF Q8="M” THEN GOTO 420 

PRINT AT 15,0: "YELLOW_ _ORANGE_ _RED_ 
—  SILVER_” 

PRINT AT 17,2;"43_X_100_=_4300_OHMS. _ 
_'".AT 18,2:"10_ PERCENT_TOLERANCE.” 
INPUT Q$ 

RETURN 

CLS 

PRINT AT 0,5:S$;¡AT 3,0;"TO_CONVERT_A_ 
VALUE_TO_RESISTOR_ _COLOR_CODE.” 
PRINT AT 6,0; "ENTER_VALUE_OF_RESISTOR_ 
(OHMS)” 

INPUT V$ 

IF LEN VS<1 OR LEN V$>11 THEN GOTO 515 
PRINT AT 8,0:R$;¡AT 15,4:V8:"_ 

OHMS.¡AT 17,0:"_ __ _BAND_1_ _BAND_ 
2_ _BAND_3" 

IF LEN VS=1 THEN LET V$="0"+V8 
PRINT"___ _"¡CS(VAL VS(1)+1)"_ 
".CS(VAL VS(2)+1);"_ _"¡CS(LEN V$-1) 

PRINT AT 21,4: "ENTER_""M""_FOR_MENU.” 


545 
550 
555 
600 
605 


610 
615 
620 


625 
630 
635 
640 
645 
650 
655 
660 
665 
670 
675 
680 
685 


690 
695 
700 
705 


Resistencias eléctricas y colores / 131 


INPUT Q$ 

IF Q$S< >"M"” THEN GOTO 500 

RETURN 

CLS 

PRINT AT 0,5;S$5;¡AT 3,0;""TO_CONVERT_A_ 
RESISTORZCOLOR_ ___ CODE_TO_A_ 
VALUE.”¡AT 5,0;R$ 

DIM D$(3,6) 

FOR |=1 TO 3 

PRINT AT 10+2*I10;"ENTER_COLOR_OF _ 
DAND RS 2 

INPUT DS(l) 

PRINT DS$(!) 

NEXT | 

DIM N(3) 

FOR |=1 TO 3 

FOR J=1 TO 10 

IF D$(I)< >C$(J) THEN GOTO 670 

LET N()=J—1 

GOTO 680 

NEXT J 

GOTO 692 

NEXT | > 

PRINT AT 18,4;"VALUE _”N(1);N(2); 
"2000000000"(1 TO N(3));””_OHMS.” 

PRINT AT 21,4; "ENTER_“"M””_FOR_MENU.” 
INPUT Q$ 

IF QS< >"M” THEN GOTO 600 

RETURN 
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Sample Run 


RESISTOR CODE. 
se | 0 | 0) 0 | 0 
EXAMPLES. 


BAND 1 BAND2 BAND3 BAND 4 
BLACK BROWN BLACK BROWN 


01 X 1 = 1 OHM. i 
1 PERCENT TOLERANCE. 


PRESS ENTER 
OR ENTER “M” FOR MENU 


23 


Resultados del examen 


Este programa permite que se introduzcan los nombres de los 
alumnos y sus resultados en un examen. Después, el pro- 
grama imprime los nombres de los alumnos en el orden de 
sus resultados, junto con el resultado expresado como un por- 
centaje y como un grado. 

Introduzca primero el nombre del alumno y después el re- 
sultado del examen. Al introducir el último resultado, pulse 
STOP (shift-A). Si se comete un error, escriba “N” cuando 
aparezca el mensaje CORRECTO? en la pantalla. De este 
modo podrá volver a introducir la información. Los resul- 
tados pueden guardarse en cinta, en cuyo caso cuando la 
cinta se carga son accesibles de inmediato. 


Programa 25: Resultados del examen 


5 SLOW 
10 LETG$="A+A_A-B4+B_B-C+C_C-D+D 
D-E+E_E-" 


15 DIM N$(150,22) 

20 DIM M(150) 

25  PRINT AT 0,5;"EXAMINATION_GRADER.";¡AT 
41,5; PU O PU A O A A UN 
AT 25: "THIS_ PROGRAM _WILL_ 
ALLOW_ _ _ _PUPILS_NAMES_AND_ 
THEIR_ZEXAM_____ RESULTS_TO_BE_ 
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ENTERED_AND_THEN_ _PRINTS_OUT_ 
THE_PUPILS_NAMES_IN_ _THE_ORDER_ 
OF_THEIR_RESULTS, _WITHTHEIR_RESULT _ 
WRITTEN_AS_A_______ 
PERCENTAGE_AND_A_GRADE.” 

30 PRINT AT 9,5;"ENTER_FIRST_THE_NAME _ 
OF_THEPUPIL_AND_THEN_THEIR_ 
RESULT_IN_ _THE_EXAM._ _AFTER_THE_ 


LAST_RESULTENTER_""_STOP_""_(SHIFT_ 
A). —IF_ANERROR_IS_MADE,_ENTER_ 
MN" _WHEN_ _ _""CORRECT?""_ 
APPEARS.” 


199) 
(€) 


PRINT AT 15,5;"RESULTS_MAY_BE_ 
'""SAVED”"”_ON_ _TAPE_AND_WHEN_ 
""RE—-LOADED”"”_CAN_BEOBTAINED_BY_ 
CALLING_FOR_THE_MENUIMMEDIATELY.” 
40 PRINT AT 19,0;"ENTER:”¡AT 20,0; _ _ 
TO_INPUT_NAMES_AND_ 

RESULTS” '*"M””_FOR_MENU” 


45 INPUT Q$ 

50 IF CODE Q$=50 THEN GOTO 2602 

55 CLS 

60 PRINT AT 10,0;"WHICH__GRADING _ 
SYSTEM”;AT 12,0; "ENTER:”,,11'A""_FOR_ 
ABS “"eB"". FOR. —A¡B,G,DE" 

65 INPUT Q$ 


67 LET G=9+(6 AND Q5$="B”) 
7D CLS 


Resultados del examen / 135 


75 PRINT AT 10,0;"ENTER_MAXIMUM _RESULT_ 


IN_EXAM” 
80 INPUT M$ 
85 PRINT AT 12,10;MS;AT 14,8;'"CORRECT?”" 
9% INPUT Q$ 


95 IF .CODE Q$=51 THEN GOTO 70 

100 LET M=INT ABS VAL M$ 

105 FOR |=1 TO 159 

110 CLS 

115 PRINT AT 9,0:"ENTER_NAME_OF_PUPIL_”;I 

120 INPUT NS() 

125 IF CODE N$())=227 THEN GOTO 170 

130 PRINT AT 11,0:NS());AT 14,0;"ENTER_PUPILS_ 
EXAM_RESULT"; 

135 INPUT R$ 

149 PRINT AT 16,0:R$:AT 19,0;"CORRECT?" 

145 INPUT Q$ 

150 IF CODE Q$=51 THEN GOTO 110 

155 LET M(I)=INT (VAL R$x100/M) 

160 LETN=I 

165 NEXT | 

170 FAST 

175 FOR J=2TON 

189 LET T$=NS(J) 

185 LET T=M(J) 

19% FOR I=J-1 TO 1 STEP -1 

195 IF M(I)>T THEN GOTO 215 

200  LET NS(1+1)=NS(1) 

205 LET M(I+1)=M() 
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210 NEXT | 

215 LET NS(I+1)=T8 

220 LET M(I+1)=T 

225 NEXT J 

239 LET N$(1,21 TO 22)="A+" 

235 LETK=1 

249 FORI=2TON 

245 IF 1>K*N/G AND M()< >M(I-1) THEN LET 
K=K+1 

250  LET N$(1,21 TO 22) =G$(2x*K-1 TO 2xKk) 

255 NEXT | 

260 CLS 

265 SLOW 

270 PRINT AT 4,0:"PRESS”:AT 6,0:"""C""_FOR_ 
PRINTED_COPY"¡AT 7,9;""""D""_TO_ 
DISPLAY _ RESULTS”; AT 8,0;""""M""_TO_ 
RETURN_TO_COMMAND_MODE";AT 9,0; 
mue _TO_RE-RUN_PROGRAM”: 
AT 10,0;""""S'"_TO_SAVE_RESULTS" 

275 PAUSE 40000 

280 LET Q$=INKEYS 

285 CLS 

290 IF Q$="M" THEN STOP 

295 IF. Q$="R" THEN RUN 

300 IF Q$="S" THEN SAVE "EXAM” 

305 IF Q$<>"D” THEN GOTO 365 

310 FOR I=1 TON 

315 PRINT I;TAB 3;¡NS();TAB 27;M(|) 

320 IF |<>15x*INT (1/15) THEN GOTO 345 


325 


330 
335 
340 
345 
350 
355 
360 
365 
370 
375 
380 
385 
9999 


Resultados del examen / 137 


PRINT AT 18,20;"PRESS_ENTER_ _ _“AT 
20,0; "OR _ENTER_ANY_CHARACTER_TO_ 
RETURNTO _ MENU”! 

INPUT Q$ 

IF Q$< >" THEN GOTO 260 

CLS 

NEXT | 

PRINT ,, TAB 7/'*x_ _*x*_ _x*x*_ _x*x*” 
INPUT Q$ 

GOTO 260 

IF Q$< >'"'C” THEN GOTO 260 

FOR |=1 TO N 

LPRINT |;TAB 3¡NS();TAB 27;M(l) 

NEXT | 

GOTO 260 

FAST 


APENDICES 


Para acelerar 
la ejecución 
de programas 


Gran parte de los métodos que se utilizan para ahorrar espa- 
cio en la computadora T/S 1000 desaceleran la ejecución de 
los programas. En ocasiones es preferible ocupar más espa- 
cio, con tal de incrementar la velocidad de ejecución. 

En este capítulo se verán algunos programas cuya diferen- 
cia en velocidad de ejecución puede parecer marginal si for- 
man parte de un programa corto. Sin embargo, con pro- 
gramas largos o con rutinas que se repiten muchas veces 
dentro de un bucle, la diferencia entre dos programas, uno 
escrito intentando optimizar la velocidad y otro no, puede ser 
considerable. Las sugerencias de este capítulo se refieren a 
programas escritos para ejecutarse en el modo lento (SLOW). 
En general, el modo rápido no requiere estas atenciones, ex- 
cepto en ocasiones especiales. 


Estructura 


Los más importante es que el programa esté bien estructu- 
rado. Deben ponerse las partes del programa que en más oca- 
siones se ejecuten al principio del listado y las partes menos 
frecuentemente se utilicen al final del mismo. Hay una justifi- 
cación muy simple para este proceder. Las instrucciones como 
GOTO y GOSUB tienen que buscar a lo largo del programa 
hasta encontrar el número de línea al que transfieren el con- 
trol. Por lo tanto, las subrutinas y bucles del programa se eje- 
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cutarán más rápidamente si están al principio del programa 
que si estuvieran al final. Para que el programa comience uti- 
lizando la sentencia PRINT para escribir los literales que indi- 
quen al usuario lo que hace el programa y cómo debe usarle, 
se puede arbitrar un truco. Por ejemplo, puede comenzarse el 
programa con una instrucción GOSUB 9000 y colocar a partir 
de esta línea los mensajes al usuario que se deseen. 


Sentencias PRINT 


Escriba los caracteres directamente entre comillas siempre 
que se pueda. Compruebe el tiempo de ejecución de estos 
programas: 


10 FOR F = 1 TO 350 
20 PRINT “0”; “0”; 
30 NEXT F 


10 FOR F = 1 TO 350 
20 PRINT 0;0; 
30 NEXT F 


10 FOR F = 1 TO 350 
20 PRINT CHR$ 28; CHR$ 23; 
30 NEXT F 


Tardarán aproximadamente nueve, once y trece segundos, 
respectivamente. La diferencia es tan aparente que no se ne- 
cesita reloj para cronometrar. 


Unión de sentencias PRINT 


El usuario debe saber que en una línea de un programa se 
admite cualquier combinación de las instrucciones 
PRINT/TAB/AT. Sin embargo, debe tenerse en cuenta que 
los programas ganan velocidad si las sentencias PRINT se en- 
cadenan que si fueran una serie de líneas de programa. Para 
corroborar esto, ejecute y cronometre los siguientes pro- 
gramas: 


Para acelerar la ejecución del programa / 143 


1D FOR N=1TO 100 
20 PRINT AT 10,11: MIENNKING” 
30 PRINT AT 10,11:"THINNIKING” 


40 PRINT AT 10,11;"THINKIING” 
50 PRINT AT 10,11;"THINKIe]” 


60 NEXT N 


10 FOR N=1TO 100 

20 PRINT AT 10,11; "MISNNKING”¡AT 19,11; 
"THINIKING”¡AT 10,11; 
"THINEING";¡AT 10,11;"THINKIIEY 

30 NEXT N 


Operadores lógicos y relacionales 


Estas instrucciones son de evaluación lenta. Cualquier expre- 
sión que dé como resultado un cero (falso) se computa antes 
que Otra que dé como resultado uno (verdadero). Es decir, 
las sentencias falsas se ejecutan más rápidamente que las ver- 
daderas. Esto no es todo. Una expresión como IF X 
THEN ... es más rápida que IF X = 1 THEN ... y IF NOT X 
THEN ... es más rápido que IF X = ( THEN ... 

Observará que IF X <> 1 THEN ... se evalúa ligeramente 
más rápido que IF NOT X = 1 THEN ..., aunque la diferen- 
cia es inapreciable. 

Trate de escribir sus sentencias condicionales de tal modo 
que en la mayor parte de los casos sean falsas. Obviamente, 
si para conseguir este efecto tiene que introducir otros ele- 
mentos que desaceleran el programa, el esfuerzo se habrá he- 
cho en vano. 


Almacenamiento de pantallas en cinta 


Si se tiene un programa que utilice gráficos complicados, tales 
como curvas sinusoidales o elipses, puede merecer la pena 
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ejecutar el programa para dibujar los gráficos, para después 
almacenar los gráficos en cinta. Una rutina que realice com- 
plejos dibujos se ejecutará lentamente, mientras que cargar 
un dibujo desde la cinta magnética es instantáneo. 


2 


Caracteres 
expandidos 


La memoria ROM de la computadora T/S mantiene una tabla 
de datos para generar los caracteres de la pantalla. Esta tabla 
se denomina generador de caracteres y empieza en la direc- 
ción 7680 (decimal) y acaba en la dirección 8191 (decimal). 
La tabla contiene una serie de ceros y unos que corresponden 
a puntos en blanco o en negro en la pantalla. Cada carácter 
comprendido entre el (0 y 63 se componen de un cuadrado de 
bits 8 x 8, los demás caracteres son combinación de éstos. El 
generador de caracteres contiene ocho octetos por cada carác- 
ter. Vamos a ver un ejemplo con el número 0. Este número 
tiene como código (CODE) 28 y su definición empieza en la 
dirección 7904. La forma de averiguar donde empieza la defi- 
nición de un carácter es muy simple: 


7680 +(CODE * 8) 
y termina siete octetos más adelante 
7680 +(CODE * 8 + 7) 


Si se examinan los octetos de memoria correspondientes al 
( se obtiene: 


7904 00000000 
7905 00111100 
7906 01000110 
7907 01001010 
7908 01010010 
7909 01100010 
7910 00111100 
7911 00000000 
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Si se mira esta figura como si los ceros no existieran se 
observará algo como esto: 


que es similar a como aparece en la pantalla. La manera de 
averiguar que bits tiene uno y cuáles cero es dividir repetida- 
mente por dos y el resto nos va indicando los valores de los 
bits. 

A continuación se presenta un programa que utiliza la 
función PLOT para crear caracteres cuyo tamaño es cuatro 
veces mayor que el normal. Cuando ejecute este programa, 
introduzca un carácter cada vez cuando aparezcan en pantalla 
las comillas correspondientes al INPUT, después pulse EN- 
TER. Los caracteres se dibujan en la esquina superior iz- 
quierda de la pantalla. El programa ocupa 1K de memoria. 


E 


Caracteres expandidos 


30 INPUT AS 

49 CLS 

50 FOR A=0 TO 7 

60 LET P=PEEK (7680+8*CODE A$+A) 

70D FOR B=0TO 7 

8D IF P—-2x*INT (P/2) THEN PLOT 7-—B,43-—A 
9% LET P=INT (P/2) 
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100 NEXT B 
110  NEXTA 
120 GOTO 30 


Esta versión del programa sólo permite tener un carácter ex- 
pandido en la pantalla cada vez. De este modo el programa 
es muy simple. La siguiente versión del programa mediante 
las variables DOWN y ACROSS controla dónde se imprime 
cada carácter en la pantalla. Esta versión sólo permite carac- 
teres cuyo código esté comprendido entre ( y 63. 


Caracteres expandidos utilizando PLOT 


1W LET ACROSS=7 

20  LET DOWN=43 

30 INPUT AS 

40 LET C=CODE AS$ 

50 FOR K=0 TO 7 

60 LET P=PEEK (7680 +Cx8 +K) 
70 FOR F=0 TO 7 
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80 IF P-2xINT (P/2) THEN PLOT 
ACROSS -—F,DOWN -—K 
90 LET P=INT (P/2) 
100 NEXT F 
110 NEXT K 
120 LET ACROSS=ACROSS+8 
130 IF ACROSS>63 THEN LET DOWN=DOWN-=8 
135 IF ACROSS>63 THEN LET ACROSS=7 
149 GOTO 30 


Caracteres expandidos en negativo utilizando PLOT 


Esta versión permite dibujar para los caracteres cuyo código 
está comprendido entre 0 y 63 sus formas expandidas en posi- 
tivo y negativo. Todas las palabras clave, funciones, etc., son 
combinaciones de estos caracteres. En la pantalla caben cinco 
filas de ocho caracteres expandidos cada una, es decir, un to- 
tal de 40 caracteres. Esta es una de las ventajas de usar 
PLOT en lugar de PRINT AT. Quiere decirse que aunque 
con PLOT los caracteres obtenidos son más pequeños, caben 
más en la pantalla. 


1D LET ACROSS=7 
20 LET DOWN=43 
30 INPUT A$ 
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40 LETC=CODE AS 
45 LETCC=C-(128 AND C> 128) 
50 FORK=0JTO7 
60 LET P=PEEK (7680 +CCx8+K) 
70 FORF=0TO7 
80 IF C>=128 AND P—2xINT (P/2)=0 THEN PLOT 
ACROSS —F,DOWN -K 
85 IF. C<128 AND P—2x*INT (P/2)< >0 THEN PLOT 
ACROSS -—F, DOWN -—K 
90 LET P=INT (P/2) 
100 NEXT F 
110 NEXT K 
120. LET ACROSS=ACROSS+8 
130 IF ACROSS>63 THEN LET DOWN=DOWN-8 
135 IF ACROSS>63 THEN LET ACROSS=7 
149 GOTO 30 


En este programa se ha introducido una variable adicional 
CC. C es el código (CODE) del carácter que se va a expandir 
y CC es el código reducido a un número comprendido entre 0 
y 63 para que se pueda examinar el generador de caracteres. 
Si C es mayor que 127 se le convierte a su negativo en las lí- 
neas 80 y 85 para determinar que areas son blancas y cuáles 
negras. 


Caracteres expandidos utilizando PRINT AT 


Ahora vamos a utilizar PRINT AT. Aunque este procedi- 
miento tiene las desventajas ya comentadas, es posible conse- 
guir caracteres de tamaño superior a los que se consiguen con 
PLOT y permite elegir entre caracteres negros sobre fondo 
blanco O caracteres blancos sobre fondo negro. Un aspecto a 
mencionar es que la coordenada Y para PLOT y PRINT AT 
funcionan de forma opuesta. 
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10 
20 
30 
40 
45 
50 
60 
70 
80 


90 


100 
110 
129 
130 
149 


150 


LET ACROSS=0 
LET DOWN=0 


INPUT AS 

LET C=CODE A$ 

LET CC=C-(128 AND C > =128) 

FOR K=09 TO 7 

LET P=PEEK (7680 +CCx8+K) 

FOR F=0 TO 7 

IF P—2x*INT (P/2)< >0 AND C< 128 THEN PRINT 
AT DOWN+K,ACROSS+7—F;" MW" 

IF P-2xINT (P/2)=0 AND C> =128 THEN PRINT 
AT DOWN+K,ACROSS+7—F;" Ml” 

LET P=INT (P/2) 

NEXT F 

NEXT K 

IF ACROSS+8>31 THEN LET DOWN=DOWN+8 
LET ACROSS=ACROSS+8 AND 

ACROSS+8< =31 

GOTO 30 
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6ot 
E 


Caracteres expandidos con diferentes tonalidades 


Por último una versión que permite imprimir en negro sobre 
gris o viceversa (en los caracteres en negativo). No funciona 
muy bien en la impresora pero sí en la pantalla. Para utilizar 
diferentes caracteres debe cambiar las líneas 80 y 90. Intente 
escribir una versión que le permita elegir los caracteres para 
los caracteres y el fondo. (Pista: utilice una cadena.) 


10 LET ACROSS=0 

20  LET DOWN=0 

30 INPUT A$ 

40 LETC=CODE AS$ 

45 LETCC=C-(128 AND C.> =128) 

50 FOR K=0T0O 7 

60 LET P=PEEK (7680+CCx*8+K) 

70 FOR F=0 TO 7 

75  LET PP=P-2xINT (P/2) 

80 IF (PP<>0 AND C< 128) OR (PP=0 AND 
C>=128) THEN PRINT AT DOWN+K, 
ACROSS+7—F;"M 
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90 IF(PP=0 AND C< 128) OR (PP< >0 AND 
C>=128) THEN PRINT AT DOWN+K, 
ACROSS+7—F; "BB" 

100 LET P=INT (P/2) 
110 NEXT F 
120 NEXT K 
130 IF ACROSS+8>31 THEN LET DOWN=DOWN+8 
149 LET ACROSS=ACROSS+8 AND 
ACROSS+8< =31 
150 GOTO 30 


Recuerde que no tiene por qué limitarse a aquellos carac- 
teres cuya definición figura ya en la memoria ROM. Mientras 
que tengan el mismo formato (ocho octetos por carácter) y 
conozca dónde empieza puede diseñar un alfabeto de letras 
minúsculas y almacenarlo mediante una sentencia REM al 
principio del programa, después puede utilizarse la función 
PEK para encontrar el dato preciso. Piense lo satisfactorio 
que puede resultar mostrar a sus amigos que su computadora 
T/S 1000 dispone de letras minúsculas. 

Se dará cuenta de que un trozo de papel cuadriculado es 
imprescindible. Para diseñar cualquier carácter utilice un cua- 
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drado 8 X 8 como se muestra más abajo. Rellene aquellos 
cuadros que le apetezca. Para cada fila sume los números que 
figuran arriba de las zonas sombreadas, de esta forma obten- 
drá un número por cada fila y tendrá por tanto 8 números. 
Examine el ejemplo. 

12864 3216 8 4 2 1 
(Y 
64 
64 
129 
64 + 4 = 68 
64 + 4 = 68 
120 
4) 


Ahora dispone de una secuencia de números. 


Ahora utilice la función POKE para almacenar estos ocho 
números en una sentencia REM. Se ha simplificado bastante 
con objeto tan sólo de clarificar. Estudie los ejemplos ante- 
riores antes de ampliar esta rutina. 


b 


1 REM RNDRND???? 

10 FORA=0T07 

20 LET P=PEEK (16514+A) 
30 FORB=0TO 7 
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49 IF P—2xINT (P/2) THEN PLOT 7-B,43-A 
50 LET P=INT (P/2) 

60 NEXT B 

70 NEXT A 


Este programa le proporcionará una b minúscula cuyo ta- 
maño es cuatro veces el' normal. Experimente con el pro- 
grama e intente ampliarle para incluir más caracteres, utili- 
zando ejemplos anteriores conseguirá alguna ayuda. 


3 


Variables 
del sistema útiles 


Las variables del sistema están almacenadas en memoria 
RAM entre las direcciones 16384 y 16508. Indican a la com- 
putadora cosas sobre sí misma, tales como, dónde empieza el 
fichero de representación visual o donde empieza el área des- 
tinada al almacenamiento del programa o de las variables en 
la memoria. Esta información puede utilizarse en los pro- 
gramas e incluso puede alterarse el valor de algunas de estas 
variables del sistema para permitir así a la computadora reali- 
zar funciones especiales como cronometrar. Por medio de la 
función PEEK puede leerse el valor de cualquiera de estas va- 
riables del sistema, aunque no todas le serán de utilidad al 
programar. 


Dirección Comentario 


16384 Controla los mensajes de error. Si se alma- 
cena uno de los siguientes valores en este 
lugar, el programa se detiene sin que apa- 
rezca el correspondiente mensaje de error: 
43, 70, 72, 73, 74, 75, 76, 77, 79, 81, 82 Ó 
89. El sistema está ahora en condiciones de 
interpretar cualquier tecla que se pulse 
como una orden. 

16388/16389 Contiene la dirección del primer octeto que 
sigue al área destinada al programa BA- 
SIC, algunas veces se denomina a esta va- 
riable del sistema RAMTOP. La instruc- 
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Dirección . 


16396/16397 


16398/16399 


16400/16401 


16419/16420 


16425 


16434 


Comentario 


ción NEW sólo limpia las posiciones de 
memoria anteriores a la dirección contenida 
en RAMTOP, por tanto cualquier informa- 
ción almacenada en direcciones superiores 
permanece intacta. Si el valor de esta varia- 
ble es superior a 19712 entonces cuando se 
ejecuta CLS, el fichero de representación 
visual se contrae hasta su mínima exten- 
sión. 

Contiene la dirección del principio del fi- 
chero de representación visual. No debe al- 
terarse el valor de esta variable. Del mismo 
modo esta variable indica la extensión del 
programa (exceptuando variables, pantalla, 
etc. 

Almacena la posición en la que escribirá la 
próxima sentencia PRINT en el fichero de 
representación visual. Por tanto modificán- 
dola adecuadamente se puede escribir en 
cualquier lugar de la pantalla. 


Contiene la dirección del principio del área 
de memoria destinada a las variables. Es 
útil cuando se programa en lenguaje má- 
quina. 

Almacena el número de la mayor línea de 
programa que aparecerá al listarle. Puede 
cambiarse el valor de modo que no se 
pueda listar todo el programa. 


Almacena la dirección de la siguiente línea 
que será ejecutada. Es útil para modificar 
líneas de un programa desde dentro del 
propio programa. 

Contiene el origen para la función RND. Es 
útil en programas que generen números o 
caracteres aleatorios utilizando las fun- 
ciones RND/RAND, puesto que esta es la 
variable que fija la función RAND. 


Dirección 
16436/16437 


16438 


16439 


6441 


16442 


16444 a 16476 
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Comentario 


Contiene el contador de imágenes. El bit 
15 es 1. Los bit desde el 0 al 14 se decre- 
mentan de uno en uno por cada imagen 
que se envía a la TV. El número total de 
imágenes es de 32768. La función PAUSE 
sitúa un 0 en el bit 15 y en los otros bit 
pone la duración de la pausa. La función 
PAUSE concluye cuando se alcanza Ú y en 
ese momento el bit 15 vuelve a valer uno. 


Contiene la coordenada X del último pixel 
en el que se haya dibujado mediante la fun- 
ción PLOT. 
Contiene la coordenada Y del último pixel 
en el que se haya dibujado mediante la fun- 
ción PLOT. 


Almacena el número de la colimia de la 
posición de PRINT en la pantalla. 


Almacena el número de línea de la posición 
de PRINT en la pantalla. 


Contiene el almacenamiento temporal de 
datos de la impresora. Son 32 caracteres de 
una línea más ENTER. Si no se está utili- 
zando impresora puede utilizarse para al- 
macenar temporalmente otros datos. 
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Convertidor 
de decimal 
a hexadecimal 


Este programa tan corto convierte cualquier número decimal 
comprendido entre O y 255 a su equivalente hexadecimal. Es 
útil para quienes tengan intención de programar en lenguaje 
máquina. 


10 PRINT AT 0,0; "ENTER_A_DECIMAL_NO. (0 _ 


30-255)" 
20 INPUT X 
30 SCROLL 


40 IF X<>INT X OR X< OR X>255 THEN GOTO 10 
50 PRINT TAB 3-LEN STR$ X:X:"_DECIMAL_IS_”; 
60 PRINT CHRS$ (28+INT (X/16)) + CHR$ (28+(X—INT 


(X/16)*16)); 
70 PRINT “"_ HEXADECIMAL” 
8Y GOTO 10 


La línea 10 pregunta al usuario el número que desea conver- 
tir, utilizando un mensaje que aparece en la parte superior de 
la pantalla, de tal forma que cuando la pantalla se “corre” ha- 
cia arriba el mensaje desaparece. La línea 40 rechaza los va- 
lores que están fuera del rango o que no son enteros y solicita 
del usuario una nueva entrada. La línea 50 manipula los espa- 


158 


Convertidor de decimal a hexadecimal / 159 


cios de manera adecuada. Para ello examina la longitud del 
número convertido a cadena mediante la función STR$. La lí- 
nea 60 realiza la conversión. Puede ahorrarse memoria si se 
combinan las instrucciones PRINT de las líneas 50, 60 y 70 en 
una sola sentencia. 


3 


Convertidor 
de hexadecimal 
a decimal 


Este programa que ocupa 1K convierte cualquier valor hexa- 
decimal comprendido entre 00 y FF (un octeto) a su equiva- 
lente decimal, es decir, este programa es la función inversa 
del precedente. Tal vez le interese juntar ambos programas y 
añadir la posibilidad de elegir entre las dos opciones. 


10 PRINT AT 0,0; "ENTER_A_ HEXADECIMAL _ 


NO.00_TO_FF" 
20 DIM X$(2) 
30 INPUT X$ 
49 SCROLL 


50 IF XS(1)<"0" OR X$(1)>"F" OR X$(2)< "0" OR 
X$(2)>"F" THEN GOTO 10 

50 PRINT XS;"_HEX_IS_"”; 

70 LET X=(CODE X$-28)*16+CODE X$(2) -28 

80 PRINT TAB 14-—LEN STR$ XX: _ DECIMAL” 

99 GOTO 10 


El programa es muy similar al anterior; los valores hexa- 
decimales en el rango en el que se está interesado tienen 
como máximo dos caracteres. Por esto, la línea 20 asegura 
que X$ (la cadena hexadecimal a convertir) contiene siempre 
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2 caracteres. La línea 50 comprueba que los caracteres de X$ 
son permisibles, es decir, son dígitos hexadecimales compren- 
didos entre 0 y F. La línea 60 escribe la primera parte de la 
conversión, en esta ocasión no se precisa ningún método es- 
pecial para controlar el espaciado, puesto que siempre los va- 
lores hexadecimales tienen la misma longitud. La línea 70 
convierte el valor hexadecimal a un número decimal com- 
prendido entre O y 255. Ahora sí que se requiere tener en 
cuenta los espacios y esta labor se realiza de manera similar 
al anterior programa. 
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Simbolos 
gráficos especiales 


Los símbolos gráficos de la siguiente lista están disponibles en 
la computadora T/S. Apréciese que en la lista cada símbolo 
aparece enmarcado, es decir, que sus bordes están dibujados 
aunque no vayan a aparecer en la pantalla. Por ejemplo, el 
primer símbolo de la lista en la pantalla aparecerá exclusiva- 
mente como un espacio en lugar de como un cuadrado sin re- 
llenar como aparece en la lista. Debe tenerse también en 
cuenta que mediante el modo [6]se accede a los caracteres en 
negativo. | 


Símbolo Modo Tecla Símbolo Modo Tecla 
|] or SPACE EE SPACE 
a] shifted-1 e shifted-Q 
[| M shifted-2 q shifted-W 
mu shifted-7 sen shifted-6 
= shifted-4 | shifted-R 
| shifted-5 ¡A shifted-8 
ae shifted-T a shifted-Y 
pe shifted-E r shifted-3 
EE shifted-A Ed shifted-H 
basal shifted-D bsced shifted-G 
pe shifted-S Lo shifted-F 
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